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SECTION 1 

INTRODUCTION: PHILOSOPHY, ORGANIZATION, AND RATIONALE 




For simple operating systems, reliability analysis can be performed 
without resorting to simulation or computer programs. Even with a large 
number of components, if each component has a specific probability of falling 
during a given mission time, and if all are operating in parallel, the 
product of individual failure probabilities is the probability of failure of 
the system (provided that the components are independent). However, for many 
systems there are computational complicating factors. 

Failed units may be repaired and returned to service. Units may be held 
in reserve and placed into service only when needed. Further, the automatic 
or manual switching mechanisms which accomplish this may themselves be subject 
to failure. Systems may fail, be repaired, and fail again according to dif- 
ferent failure and repair distributions that are determined by the configura- 
tion and by the failure repair characteristics of the component units. 

In addition to conventional factors, systems characterized by costs 
associated with operating and repairing component units may make the 
definition of system reliability a matter of choice. Reliability may be 
related to the probability of completing a given mission time, the expected 
number of failures, expected total down time, expected operating or repair 
cost, expected down time, cost for a single failure, or the probability of 
exceeding a threshold level of accumulated costs due to down time. These 
alternate definitions of system failure create complex analysis for which 
analytic solutions are available only for simple, special cases, the GRASP 
methodology is a computer simulation approach for solving all classes of 
problems in which both failure and repair events are modeled accordi ng to the 
probability laws of the individual components of the system. 


The simulation program can handle all of the common probability distributions, 
and also accommodate a limited number of user specified distributions. The 
importance of this capability appears in the decomposition of very large 
systems. Distributions of separate portions of the system are first obtained 
in a histogram form, and then combined to represent the performance of the 
entire system. Data input is also minimized by utilizing schemes for 
replicating identical portions of the system. 

The data input consists essentially of the following: 

- life time distribution for each of the components 

- repair time distribution for repairable components 

- switching or delay time distributions, and switch reliability, 
for standby redundant components when applicable 

- cost Of affecting repair if cost analysis is desired. 

The results of a simulation upon which the comparison of alternative 
designs may be based, include: 

- the usual descriptive statistics of the time to failure and the 
time to repair for the entire system or any portion of it 

- a count of where failures occur. This provides a measure of the 
relative importance of the components and indicates where 
redundancy is or is not needed. 

- system downtime accumulation and its variability on repeated runs 

- accumulated or "one time" repair costs when applicable 

- histograms of the values of random variables that were generated. 
These may be used as an input for a user specified distribution in 
fuHhor analysis. 

From the above information, system reliability and availability can 
readily be calculated. 


GRASP Is an extension of the 6E RTS- I II Z simulation program developed 
by A.A.B. Pritsker [12], GERTS-III Z is a generalized simulator for 
processes of the semi -Markov type, GRASP incorporates all of the features 
of GERTS-III Z; Indeed with only minor changes any GERTS-III Z data deck 
can be correctly processed by the GRASP program. In addition, GRASP contains 
many features which make it particularly suitable for simulating reliability 
systems. The modi fi cations of GERTS-III Z were programmed by Joseph Pol i to 
and Edward R. Shulaker [22] under thp sponsorship of National Science 
Foundation Grant ATA 73-07822 AOl, directed by Professor Don T. Phillips 
of Texas A&M University. Significant extensions that increase the modeling 
capability of GRASP were added at Texas A&M University without affecting 
the previous characteristics of the program, under NASA Grant NSG-2226. 

The modeling philosophy of GRASP is that reliability configurations 
can be represented as network diagrams through which the parameters and 
logical relationships are specified. This network is then easily converted 
into a set of data card$ to be processed by the GRASP program. No programming 
is required of the user, 

GRASP notation will be presented which is an extension of the block 
diagrams that are so familiar in reliability work. These diagrams are very 
useful for representing a complex reliability system, and the preparation 
of equivalent GRASP networks from them is relatively straightforward. The 
state, transition diagrams that are often used in Markov models are highly 
recommended in addition to the block diagram representations for the purpose 
of inspiring the construction of the equivalent GRASP network. These concepts 
will be discussed in subsequent sections. 


GRASP is a collection of ANSI FORTRAN subprogranis. Hence, the system 
is easily portable between computer installations, the user is required only 
to have a FORTRAN compiler, a line fj^rinter, and (for some options) disk 
storage, 

In summary, GRASP is a network based, FORTRAN simulation language with 
special features for analyzing the reliability of complex systems. It is 
highly portable, requires no programming by the user, ahtl permits a wide 
variety of complex configurations to be analyzed. 
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SECTION 2 
GRASP MODELING 

GRASP Is a digital simulation program based upon the methodologtes 
and structure network modeling techniques. GRASP generalizes fundamental 
network concepts and Its basic Intent Is to provide a framework through which 
complex operational systems exhibiting rellabnity, availability and maintain- 
ability (R/W) characteristics can be analyzed. GRASP modeling characteristics 
also make It particularly suitable as a risk analysis and detlslon analysis tool. 
However, throughout this manual emphasis Is placed on the modeling philosophy 
as It relates to RAM systems. Basically, the GRASP approach consists of four 
steps; 

- decompose the system Into Its principal elements 

- describe and analyze the characteristics of the elements and build 
an operational reliability block diagram of the system 

- build a GRASP network model from the block diagram 

- validate and verify the GRASP model. 

This section describes the basic modeling concepts and shows how 
system performance can be accessed through statistical collection procedures. 

2.1 Reliability Block Diagram Analysis 

In order to facilitate the construction of GRASP Networks and to aid 
in communication. It is helpful to Include this information on a GRASP 
Reliability Block Diagram as a preliminary step to constructing the GRASP 
network. 

The basic component In a GRASP Reliability Block Diagram Is a box 
(Figure 2.1,1). Two pieces of information are contained In each box. The 


first is the identic, V number of the component, For instance, if there are 
ten components in the system, they might be numbered 1 ,2,3,. . . ,1Q. The 
second piece of information is the failure characteristic (denoted by x in 
Figure 2.1.1). In simple reliability analysis, the component may be 
considered as having a probability of failure. For this case, the failure 
characteristic is the failure probability. 

In more complex analysis, the component is assumed to have a 
distribution for time between failures (TBF). If this is the case, denote 
this characteristic by inserting an F in the lower quadrant. If, in 
addition, the component may also be repaired, use FR for the failure char- 
acteristic. (The identification of the distributions for TBF and TTR, re- 
quired time to repair, will be discussed in section 4.3 of this report.) 



component number 

probability of failure of component 
component has a TBF distribution (no repair) 
component has TBF and repair distributions 


Figure 2.1.1 Basic Reliability Block 


( 0 < X < 1 .0 - 

X = F or blank - 
X = FR or R - 


It is necessary to distinguish between a schematic physical diagram and the 
reliability block diagram. For example. Figure 2.1,2 shows reliability block 
diagrams that are also schematic physical diagrams. 


(b) — 


Series 





Parallel 


Figure 2.1.2 Arrangement of Switches to Establish Flow of Current 



I I . 




7 


Figure 2,1.2 represents a series (a) and a parallel (b) configuration of two 
parts with known failure probabnities (.1 and .08 respectively). Assuming that 
the failures are Independent and using the well known probability relations! 
Pr(AnB) ■ Pr(A) x Pr(B) and Pr(A U B) ■ Pr(A) + Pr(B) - Pr(Ar\B) , thr«n the 
probability of system failure Is .1 + .08 - (.l)x(.08) » .172 1n a) , and 
(.l)x(.08) ^ .008 In b). 

It is Important to Identify the cases where the rellabITIty block diagram 
Is not the same as the physical block diagram. This distinction can be made 
by considering that the schematic physical diagram corresponds to the physical 
configuration of the system, while the reliability block diagram shows the 
functional relationships among system elements. For example, a pipeline with 
two valves can be physically represented as in Figure 2.1.3 . Its proper 


Figure 2.1.3 Schematic Physical Diagram of 
a pipeline with two valves 

reliability block diagram depends upon the definition of system performance. 

If the two valves are normally open, but are expected to shut tin command to 
stop flow, it is functionally a parallel system because the performance is 
adequate (i.e. the flow Is stopped) if at least one valve works. If they are 
normally shut but are expected to open on command to provide flow, it is 
essentially a series system. The reliability block diagram may depend also 
on the nature of the failure. For instance the cylinders of a helicopter engine 
can be considered to be either In parallel or In series. If a plug fails, the 
engine will continue functioning with the remaining cylinders, and this action 
is similar to parallel operation. However if one of the cylinder connecting rods 
fai 1 s or a piston sticks, all cylinders stop functioning, which corresponds to 
a series operation. 
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Figure 2*1.4 shows other simple reliability block diagrams 1llustfat1ng this 
notation. Figure 2.1*4 (a) depicts two units In series without repair. 

(b) (c) 


(a) 



Figure 2.1.4 



Other Simple Rel 



In Figure 2.1.4 (b) each of the components in parallel has a failure 
distribution as In 2.1*4 (a). Further^ these units can also be repaired. 

Hence, the system falls only when an online unit fails while the other is being 
repaired. Figure 2.1.4 (c) shows a repairable unit In parallel with two 
non-repal rafale units which are themselves in parallel. 

In some systems, components are held In standby and are brought on line 
only If the primary unit falls. Figure 2,1.5 displays the notation for these 
situations. The block diagram in Figure 2.1.5 indicates that unit 5 is a 
standby for unit 1. 


Simple stand- 
by, Unit 5 Is 


In standby 

f 

for unit 1. 

1 


I 

I 




Additional Features 

Switch (changeover to standby 
unit is subject to failure) 

# * switch number 



Delay (changeover does not occur 
in zero time) 

# = number of assigned to delay 
distribution 


Fi gure 2,1,5 Notation for Standby Components 



Note that Figure 2.1.5 does not imply that unit 1 is a standby for unit 5. 

The physical interpretation is as follows. Unit one will be used until it 
fails. When it does fail, Unit 5 will replace it (in zeiro time) and will 
remain in the system until it also fails. The system will fail when Unit 5 
fails. 

More complex situations can be modeled using the additional notation 
also found in Figure 2.1.5. If the switching function which causes the 
replacement of the units is subject to failure or there is a probability 
that the standby part is defective, this can be shown by a circle containing 
the letter “S" followed by the number of the switch. Also, if there is a 
delay associated with making the change, a circle with the letter “D" 
followed by the number of the delay is used. Examples are shown in Figure 
2 . 1 . 6 . 

Unit 2 in Figure 2.1,6 (a) has an interchangeable unit in standby. 

If Unit 2 fails, it is replaced immediately by Unit 1. If Unit 1 fails 
before Unit 2 is repaired, the system fails. Otherwise, unit 2 is repaired, 
but it remains in standby until Unit 1 fails and the nycle is repeated. A 
similar situation is shown in 2.1.6 (b), but in this case the switching 
mechanism (perhaps an automatic operation) denoted by Si has a designated 
probability of failure when Unit 7 replaces Unit 6. In the reverse operation, 
a delay D1 is incurred (perhaps by a manual operation). 

Figure 2.1.6 (c) adds an additional complication. Both switching 
failure and delays are shown. The order in which they are presented 
represents the logical relation between them. When Unit 8 replaces Unit 
10, the switching function occurs after which a delay (perhaps a warm-up) 
takes place. In the reverse operation the delay occurs first (operator 
reaction time), then the switching failure may occur. Figure 2.1.6 (d) 









i represents a case where a standby unit exists for one of the branches of a 

i parallel system. Units 4 and 5 replace one another when failures occur. A 

time delay of D1 is incurred each time a replacement occurs. I 

A Specification Table is included with the GRASP Block Diagram to list 
I .time to failure, repair time, delay time, and switch repair distributions. 

I An example of a Specification Table is shown in Figure 2.1.7. This 

I Specification Table would accompany the block diagram in Figure 2.1 ,6 (c). 

I Each unit with a time to failure distribution (i.e., a failure characteristic 
that is either an "F" or an "FR") is listed in the first part of the table. 

j The type of time to failure distribution Is given in the second column. 

I 

I Subsequent columns contain the mean, standard deviation, and user selected 
I minimum and maximum failure times. The last column is used to include 
I additional information. For example, the time to failure for unit 10 is 

given by a Wei bull distribution. The Weibull distribution is described by 
parameters A and B which must be input to the program, so they should be 
included in the Specification Table. 

The second section describes the repair time distributions. Time 
delays are next input in a similar manner. A unique feature of GRASP is the 
ability to analyze system costs along with system time characteristics. If 
there are costs associated with repairs or delays, these can be indicated 
in the last column. The analysis of system costs will be described in a later 
section. The switches are listed after the delays. The distribution informa- 
tion pertains to the time that it takes to repair the switch. The probability 
of failure of the switch is given in the "Other Information’' column. 

. The GRASP Block Diagram and Specification Table are useful in that they 
can be prepared by someone who is not familiar with the GRASP program or 
modeling philosophy. Also, the mechanics of preparation are simple and easy 
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SPECIFICATION TABLE 


Unit 

TBF 

Mean 

Distribution 

St. Dev. 

8 

Normal 

100 

20 

10 

Wei bull 

1.0 

0.4 


Other 

Information 


A = 0.73 B - 2.64 


Unit 

Repair 

Distribution 

8 

Exp 

10 

Erlang-2 


Other 

Information 


Delay 

" r 

Distribution 

D2 

Exp 

D4 1 

Gamma 


Mean 

Min 

\mmrn 

Max 

0,01 

0 

0.01 

10 

0.01 

0 

0.02 

10 


Other 

Information 


Figure 2.1.7 Sample Specification Table for 
Figure 2.1.6(c) 


























































to learn. Thus, the GRASP Block Diagram provides a tool to bridge the com- 
munication gap between the GRASP modeler and the user/operator of the system. 
Once the user has learned the concepts of the Block Diagram notation, one 
can, with the help of the modeler, arrive at a final Block Diagram that suit- 
ably describes the system. The Specification Table indicates what information 
is needed by the program and will direct the modeler in data specification. 

The modeler can prepare the GRASP Network from the Block Diagram. 

2.2 GRASP Methodology 

As a graphical technique, GRASP employs an activity on arc philosophy 
and it has two basic elements: 

- nodes represent events in the system such as a failure of a 
component, an end of repair, or a completion of any other type 
of activity 

- arcs or branches represent time consuming activities (such as time 
to failure, time to repair), or any event precedence relationship 
in the system. In this case, the arc has no duration (it is a 
dummy activity). 

Each element carries information which is used to indicate the col- 
lection of statistical data in the simulation procedure. This information 
is normally recorded directly on network symbolism using symbolism concepts 
that will now be described. 

2.2.1 Arc Symbolism 

Each arc is associated with a particular activity. Parameters can be 
written on the arc to uniquely specify operational characteristics of an 
activity. A general description is shown in Figure 2.2.1. 
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where 

p - probability of the activity being performed, given 
that the node 6 is released 

D - distribution type - specifies probability distribution 
for time of the activity 

P - parameter set number for use with a particular failure 
or time density function 

S - setup cost of activity - this is a fixed cost (optional) 

V - variable cost of activity - this is a time dependent 
cost (optional) 

C - activity count type - this is used to record event 
usage rates 

A - activity type ^ this is for identification purposes 
(optional) 

CN - accumulator node associated with this arc - this is used 
in accumulating activity costs (optional) 

Figure 2.2.1 Arc Symbolism 

2. 2. 1.1 Description of the Arc Symbolism 

The probability, p, associated with each arc is used by the output side 
of the' originating node. For deterministic nodes, p = 1.0. For probabilistic 
nodes, p < 1.0. If p is not shown, it is assumed equal to one. 

The distribution type, 0, is a number which specifies the probability 
distribution which is to be sampled to determine the duration of the activity. 
The available distribution types and their numbers are: 
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1. 

Constant 

8. 

Ganvna 

2. 

Normal 

9. 

Beta fitted to three parameters 
as in PERT 

3. 

Uniform 

10. 

Constant (scaled) 

4. 

Erlang 

n. 

Triangular 

5. 

Lognormal 




12> 

Wei bull 

6. 

7. 

Poisson 

13. 

Empirical (user specified) 

Beta 



The parameter set number, P, identifies a set of up to four numbers that 
is specified by the user to uniquely establish the distribution. For example, 
if D * 2 (Normal distribution), the parameter set will specify the mean, 
standard deviation, minimum and maximum values for the normal distribution 
desired. Parameter sets are defined in Table 4.3.2. 

Distribution types 10 and 13 are a slight exception to this rule. A 
network scale factor is defined on initial input and whenever D = 10, the 
value used for the activity duration H P divided by the scale factor. In 
other words, if the scale factor is 10 and a constant time of 0.4 is desired 
on an arc, then P should be set to 4. GRASP will use 4/10 as the constant 
time. This effectively converts integer constants to real numbers when 
using D = 10. 

Empirical distributions that are determined from the histograms may be 
inputted and are numbered by the user. If D = 13 is specified, P is equal 
to the number of the desired empirical distribution. For example, if two 
empirical distributions are provided by the user and (1 ,13) appears on an arc, 
GRASP will sample from the first of the distributions. 

Each activity may be assigned a linear cost function consisting of a 
fixed and variable cost. Cost information then will be maintained on the 
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operation of the network/ The fixed cost Is Incurred each time that the 
activity is initiated. The variable cost is accumulated at the time the 
activity is ended or terminated and is equal to V times the duration of the 
activity. The total cost of the activity is S + VT where T iSi the accumulated 
activity duration. T is an accumulation of sampled values from distribu- 
tion type D with parameter set P. 

Three other parameters can be associated with each arc. The first of 
these is the count type, C. Any arc may be assigned a count type. The count 
type maintains a count of the number of times the activity is completed . 

Hence, each time the activity terminates normally (not forced to halt) the 
count type for the arc is incremented by one, The reason that it is called 
a count type is that more than one arc in the network may have the same 
count type. Therefore, the count type represents the number of times that 
all arcs with that type have been completed. There may be more than one 
count type in the network. The count types are indicated by putting the 
number of the count type in a triangle below the arc. The small line con- 
necting the triangle to the arc may be omitted if desired. 

In addition to the count type, each arc may be assigned an activity 
type A. Usually it is convenient to use an activity type that is nonnegative 
for failure activities and negative for repair activities. When it is not 
specified, it is assumed to be equal to 1 , and more than one arc may have 
the same activity type. Activity types play an important role in the 
release mechanism of a node and in network modification. These concepts will 
be discussed in a later section. 

2.2.2 Node Symbolism 

A distinction has been made between failure activities (nonnegative 
activity types ) and repair activities (negative activity types). We can 
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similarly define two general classes of nodes: 

-< failure nodes: corresponding usually to failure events in the system, 
and 

- repair nodes: corresponding usually to end of repair events. 

Each node type has the same fundamental characteristics and differ only in 
the sign of their release counter . Such a counter indicates the number and 
type of activity completions (failures or repairs) that are needed in order 
to release the node. It is positive for failure nodes and negative for 
repair nodes. The use of failure and repair nodes will be illustrated in 
later sections. 

Nodes are characterized by an input side and an output side. The input 
side establishes the conditions which must be satisfied by activities or 
arcs which terminate at the node before any activities will be scheduled 
from the output side. Once these input requirements have been satisfied, 
the output side determines how the activities leaving the node will be 
routed through the network. 



Figure 2.2.2 General Input Side of a Node 

Figure 2.2.2 shows a general input side with three pieces of information: 

NT “initial release counter. The absolute value of N1 indicates the 
number of incoming activity completions of type 'sign (Nl)' for 
first release of the node. If Nl is negative, then | NT j repair 
activities are needed for the release of the node. If Nl is 
positive, then nonnegative type activities only will contribute 
to the release of the node 

N2 = release counter for subsequent releases of the node. It has 
the same working mechanism as Nl.- 
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X ■ Response descriptor. It can be one of the following: 

A - the N1 or N2 condition must be satisfied by distinct 
incoming arcs 

H - Halt capability, when the N1 or N2 condition is satisfied 
stop all activities which are scheduled to end at the node 

U - A and H are combined 



Figure 2.2.3 shows some examples of input sides of nodes with positive 
release counter and nonnegative type of incoming activities. Examples with 
negative release counters and negative activities will be discussed in the 
release mechanism section. 

In Figure 2.2.3 (a) N1 = 1, and N2 = 2 (the response descriptor is 
omitted when it is blank). There are two arcs which terminate at this node. 
When the simulation is begun, either of the activities on these arcs can 
cause the node to be "released". A node is released when the input condition 
(N1 or N2) is satisfied. A release node initiates the activities that 
emanate from it, and immediately resets itself to be released when the input 
condition is again satisfied. ^ ^ 
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For example, suppose that when the simulation is begun the activities 
on the arcs are scheduled to end at times of 10 and 20. At time 10, one 
of the activities will end. Since N1 > 1, the input condition is s^lsfled 
at time 10 and the node is released. Once released, all activities which 
begin at that node can be scheduled to start. It is immediately reset, but 
now the required condition (N2) is 2 . The terminology is that the "release 
count" is 2. In other words, two activities must complete at this node before 
it will be released again. At time 20 when the second activity ends, one more 
activity is required to release the node a second time. 

The current value of the release count is a current indicator of how 
many more activities need to be completed in order to release the node. When 
the release count is zero, the node is released. So, at time zero the release 
count is equal to N1 = 1. After the first release, the release count is set 
to N2 = 2. After time 20, the release count will be one until a third 
activity is completed, at which time the node will be released and the release 
count reset to N2 » 2. 

Figure ‘2. 2. 3 (b) is similar to (a), but now N1 = N2 = 4. Note that 
there is only one arc into the node. This means that the same activity must 
be completed four times in order to release the node once. This example 
demonstrates that one activity may be performed many times during a simula- 
tion and that the input condition may not be directly related to the number 
of arcs incident to the node. 

Figure 2.2.3 (c) has a node with N1 = 3, N2 - 1, and release descriptor “ 
H. Note that there are four incoming arcs. Any three activity completions 
will release the node (e.g., one from each of three separate arcs; one from 
one arc and two from another; or 3 from a single arc). When the node is 
released, the release count is reset (to one) and any incoming activities which 
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have not yet completed are halted (due to the H descriptor). For example, 
if the node is released at time TNOW, and there are two activities scheduled 
to end at the node at times greater than TNOW, they will be cancelled (in 
other words, never allow to complete). Another way to view this option is 
that after a node is released, only activities which are initiated after the 
release time can count toward the next release. This is the function of the 
H descriptor. 

Figure 2.2.3 (d) has response descriptor A. This implies that the 
activities which will decrement the release count must come from distinct 
arcs. The node will use only the first completion of each arc in decrement- 
ing the release count. Multiple activity completions can occur on any arc,, 
but only the first one will decrement the release count. Hence, the number 
of incoming arcs must equal or exceed N1 (N2), 

No example of a node with response descriptor U is shown. A U 
indicates both the A and H capabilities are in effect. A further generaliza- 
tion of the release count mechanism will be discussed in the section on node 
release mechanism. 

The output side of a node determines how activities are scheduled when 
the node is released, and in addition, contains the node number. There 
are two types of output sides: deterministic and probabiltstic. 

When a deterministic node is released, activities are scheduled on all 
arcs -leaving the node. For probabilistic nodes, only one activity is 
scheduled. Each arc leaving the probabilistic node has a probability 
assigned to it. When a probabilistiG node is released, one of the arcs is 
selected according to the relative probabi 1 i ti es of the arcs. 

Examples of output sides are shown in Figure 2.2.4. Graphically, 
deterministic nodes are rounded on the output side, and probabilistic nodes 
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are pointed. Figure 2.2.4 (a) shows Node 2 (a dotarmlnistlc node) with 
three activities leaving It. Each time Node 2 Is reTsasedt an activity 
will be scheduled for each of these arcs, Node 62 In Figure 2.2.4 (b) 

Is a probabilistic node with three leaving arcs. The arcs are assigned 
probabilities 0 . 1 , 0 . 6 , and 0.3. Whenever Node 62 is released, the node 
win select only one of the arcs according to the given probability distribu 
tion and schedule an activity on It. 


^ deterministic node 




probabilistic node (it Is required 
that + Pg + P 3 = 1 .) 



N - node number 

NOTE: all node numbers must be 
greater than or equal 
to 2 




( Notice that 
.1 + .6 + .3 = 1 
as required ) 


Figure 2.2.4 Output Sides of Nodes 
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Figure 2.2.S has several examples of GRASP nodes. Mote that the input 
and output sides may be specified in any combination. 



Figure 2.2.5 Examples of Modes 

Further, note that the node in Figure 2.2.5 (c) has no arcs leaving. 

This is permissible. Also, in Figure 2.2.5 (a), N2 = 999. GRASP approximates 
infinity with 999. The meaning here is that the node should be released only 
once. Note, however, if 999 activities complete at Node 9, it will be 
released again. If a better approximation to infinity is needed, we can put 
two such nodes in series or increase this number. 

Two special types of nodes are called source and sink nodes and are used 
to initiate and terminate the flow of transactions, respectively. Figure 2.2.6 
has examples of source and sink nodes. Graphically, source nodes are usually 
preceded by a single “wavy" line and sink nodes succeeded by a single “wavy" 
line. 
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> Soufet Hodts 




Pigum 8v2v6 Source end Sink Nodes 


^Referring to Figure 2,8,6, nodes 8 end 5 are source nodes, At time sero 
all source nodes (there may be more than one) are released by 6RASP, This 
causes activities to be scheduVed according to the output sides of the source 
nodes. Hence, the value of Nl is not relevant for source nodes, N2 can be 
relevant, however, as Is indicated in Node 5, Node 5 has arcs incident to It 





and it is possible that it could be again released later in the simulation 
if the N2 criterion is satisfied. The rule is that source nodes behave 
exactly like other nodes, except that they are automatically released at 
time zero. (For future reference, please note that source nodes may not be 
Mark nodes or Statistics nodes.) 

Nodes 10, If? and 20 are sink nodes and they are used to terminate the 
simulation run. As with source nodes, there may be more than one sink node 
in the network. (See variable NSNK in data card NEW-1 p. 150 ). Several 
simulation runs may be needed to end the simulation run; this is specified in 
the variable NRNS in data card NEW-1. For example, if segments c), and 
e) are part of the same network, then there are three end of run possibilities. 

The space between the input and output sides of nodes 10, 15/and 20 is 
for specification of the type of Statistics to be collected at these nodes. 

This will be explained in the section on Statistics Collection pp. 63-67, 

For sink nodes. First (F) Statistics will be automatically maintained if nothing 
is specified. 


2.2.3 Node Release Mechanism 


Recall that for each node two release counters have been defined : a counter 
for the first release of the node with initial value N1 and a counter for its 
subsequent releases with initial value N2. N1 and N2 may be positive or negative 
Integers between -99 and 999 specified in the input card NEW-2 ( see p. 117 ). 
Since their working mechanism Is the same, the initial value of a release counter 
Nl or N2, will be referred to as N, and its current value will be referred to 
«s M, 

Refering to Figure 2.2.1 p. 14, an arc can have a number associated with it, 
denoted A and called its Activity type or Arc type. A can be any integer number 
between -99 and 999. Whenever an incoming nonnegative type arc ( that is an arc 
with A greater than zero or with A unspecified) is completed* GRASP subtracts 
one from the current value M of the release counter. But if the release counter 
is negative and equal to its initial value ( M=N<0), it cannot be decremented 
below that value and remains unchanged. When an incoming arc with type A less 
than zero is completed, GRASP subtracts A from the current value of the release 
counter. In this case M is replaced by M-A which means that the release counter 
is incremented by the absolute value of A. If the release counter is positive 
it cannot be incremented beyond its initial value N. 

As incoming arcs of different types are completed, the release counter is 
decremented or incremented depending upon its sign and magnitude. If N is greater 
than zero then the node is released when M becomes less than or equal to zero. 

If N- is negative then the node is released when M becomes greater than or equal 
to zero. In most cases this means that a node is released when the current value- 
of its release counter M becomes zero. After a node is released , its release 
counter is automatically reset to its initial value N2. Figure 2.2.7 summarizes 
the release mechanism of a node. 


Activity type 


0 < M < N 


M - 1 


no change 


M - A If M - A < N 
N If M - A > N 


(a) Failure Node (N > 0) 


Activity type 


M = N 


N < M < 0 


no change 


M - 1 


A < 0 


M - A 


(b) Repair Node (?[ < 0) 


Figure 2.2.7 Node Release Mechanism 


This node release mechanism, while it may seem obscure at this point, 
will prove to be a powerful tool in modeling repairable systems. If we 
think of the system as being characterized by total failures and/or repairs 
then-the release of a node indicates when system equilibrium is disrupted. 
At a failure node, the initial value N of the release counter indicates how 
many Components must be simultaneously down in order for the system to go 
down. As long as repairs counterbalance the number of failures, the system 
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would remain in equilibrium and the node will not be released. Similarly, 
when the system is down the release counter at a repair node indicates how 
many components need to be repaired in order for the system to operate, and 
an equilibrium between failures and repairs in this case indicates that the 
system is still down. Positive and nesfative incoming activity numbers can 
be used to monitor system behavior. 

Another intuitive approach in interpreting the node release mechanism 
is to consider the two types of activities (positive and negative) as two 
different types of flows through the network. This flow interpretation may 
help understand how this mechanism works. 

A non-negative type arc carries one unit of positive flow (or one positive pulse) 
everytime it is scheduled. On the other hand, an arc with a negative type 
equal to A (A < 0) carries (-A) units of negative flow (or negative pulses). 

These flows have a trivel time from the start to the end of the arc which 
is the sampled tinis of the arc. If an arc has no duration (such an arc 
represents a dummy activity), then it is assumed that the flow traverses the 
arc instantaneously. A node can be pictured as a bucket with a holding 
capacity equal to the initial value N of the release counter. (N can be 
either N1 or N2). A failure node is a node whose release indicates a system 
failure. It is such that the initial value of its release counter (N1 or N2) 
is positive, and it holds only positive flow. A repair node or a node whose 
release indicates an end of repair is such that the initial value of N1 or N2 
is negative and it holds only negative flow. Whenever quantities of positive 
and negative flows are put together at a node, the resulting flow is given by 
the arithmetic operation between these quantities. Figure 2.2.8 shows a 
simplistic picture of this flow interpretation. 
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(a) Failure node, 
holds positive flow only. 



(b) Repair node, 
holds negative flow only. 


Figure 2.2.8 Network Flow Interpretation of 
the Node Release Mechanism 
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Figure 2.2.8 (a) shows a failure node, or a node monitoring component 
failures. We can imagine a selective hole at the bottom of the bucket that 
lets only negative flow units through if they ever reach the bottom. A 
negative unit and a positive unit cancel each other. The repair node in 
Figure 2.2,8 (b) works the same way and lets only positive flow out. In either 
case, the bucket is initially empty and when it gets full (nodal release) we 
empty it and start over again. 

Let us now look at the examples in Figure 2.2.9. 




(a) (b) (c) 


Figure 2.2,9 Examples of input side of nodes 

Figure 2.2.9 (a) shows a failure node with two types of ineoming arcs. 
Assume that activity type 1 is completed at times 1, 3, 5, and 6 and acti- 
vity type -1 is completed at times 2, 4, 7, and 8. Let us observe how 
the current value of the release counter, M, changes over time. 
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> 


consideration since the simulation run stops when the sink node is released. 
Node release counters are initialized to their corresponding N1 values at the 
beginning of each run. The examples in Figure 2.2.10 illustrate further the 
node release mechanism. Computer results for two simulation runs are given 
in Figures 2.2.11-15. They show that for a source node, N1 is irrelevant aiitd 
for a sink node, N2 is irrelevant. Notice that for the example #5, the simu- 
lation is abnormally terminated; can you see why? 
t -V u(0, 10) 


1 ^ 
“ 3 
s2 y 






^2 ^ 


Figure 2.2.10 Examples of Node Release 
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The node is released at time 6 and its release counter is immediately 
reset to 2. At time 7, completion of activity type (-1) does not decrement 
the release counter. In line (b) activity completions are the same as in 
Line (a). Note that the node is released for the first time at 1 and at time 
8 a second time. 
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Any release descriptors can be combined with negative type activities 
and negative node release counters. The response descriptor applies to both 
types of activities. The node shown in Figure 2.2.9 (c) will be released for 
the first time when both negative type activities are completed, and these 
arcs are not counterbalanced by the completion of other activities. For 
subsequent releases nonnegative type activity completions are required. Source 
sink and statistics nodes may have N1 and/or N2 negative. However, for a 
source node the value of NT does not play any role and it is usually taken 
to be zero. Similarly, for a sink node, the value of N2 is not taken into 


A run corresponds to one complete independent simulation of a network model. 
Two simulation runs are independent in the sense that they use two independent 
sequences of random numbers. The user specifies the starting seed for random 
number generation for the first run and the program uses the random number that 
was sampled last at the completion of the first run» as a starting seed for the 
next run. The final results (see computer output) summarize the statistics 
accumulated over all the runs. A simulation run can normally be terminated in 
two ways ; 

t a sink node has been released (that is the case in examples 1 through 4) 
or» 

« the T2 or G2 criterion of a C-node has been satisfied (this is explained 
in the next section). 

It can also be abnormally terminated in two ways: 

- an error has been detected in the model or in the program* in which case 
an appropriate message is given (that is the case in example 5)» or 

- the limits on the execution time or the output space specified in the 
job control language cards (specific to the computer installation) has 
been violated. An appropriate message is also printed. 

Various options for defining a run are used in examples 1 through 5, and the 
reader should compare them. For each example, the con^uter output includes an 
event trace for run 1, an event trace for run 2, and the final results for both 
runs.. The tracing option is included in the GRASP program to facilitate the 
user in validating his model. Basically, it consists of printing the nodes and 
arcs affected at each event during certain intervals of the simulation. There 
are 3 ways the user can request such a tracing: 
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a) Specify the run number to start tracing, NSTR, and the run number to 
end tracing, NETR, The program will print node and arc characteristics 
at each event during the specified simulation runs. 

b) Specify the time to begin tracing, TSTR, and the time to end tracing, 
TETR. The program will print the same information as In case a) at each 
event between TSTR and TETR, during all the simulation runs. 

c) Specify NSTR, NETR, TSTR and TETR. The program will trace whatever 
happens between TSTR and TETR for the specified runs. 

The program expects an input that NETR ^ NSTR and TETR >_ TSTR. An error 
message 1s printed otherwise. The tracing option can be summarized as follows: 


TSTR 


Type of Traci n 


no tracing 
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Computer Results for Example #1 in Figure 2.2.10 
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Figure 2.2.12 

Computer Results for Example #2 in Figure 2.2.10 
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ORIQINAt PAGE 13 
OF POOR QUAUTY 

2.2>4 Special Features 

The concepts previously Introduced are enough to model most repairable 
systems. Two more features greatly Increase the capability of GRASP, These 
concepts are the ability to cause network modifications dynamically during 
the simulation and the addition of special nodes called C-nodes which c^'tn be 
used to monitor accumulated system costs, C-nodes characteristics 'will be 
described In the section on statistical collection,' 

Network modifications are triggered by the completion of a certain 
activity type. Recall that different arcs in the network can have the same 
number so that network modification can be triggered by the first completion 
of one of several possible arcs. Symbolism for this mechanism is shown in 
Figure 2.2.16. 



Figure 2.2.16 Node Replacement 


ft 
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In Figure 2.2.16 (a) if any arc with activity number type 3 is 
completed, then the output side of node 8 will be replaced by the output side 
of node 16. In other words, when node 8 is released the activities from 

node 16 will be scheduled instead of those from node 8 » The input sides of 

node 8 and 16 are not affected. It is customary to omit the input side, as 
in node 16, if it has no input of its own. This is not a requirement, however 
as Figure 2.2.16 (b) illustrates. In this case node 21 has an input of its 

own and operates independently of node 9. However, when node 9 is released 

after an activity of type 4 has completed, the arcs from node 21 will be 
scheduled. When this happens, it should be noted that it is node 9 that is 
released, not node 21. In other words, the conditions which determine node 
release are associated with the input sides, and node replacement affects 
only the output side of nodes. 

In both Figures 2.2.16 (a) and (b) the network is permanently modified. 
Activities from the output side of node 8 will never be scheduled again once 
the network is modified. If we want to go back to the original network, we 
need to trigger another modification of the network, which will re-insert 
nodes 8 and 9, respectively. 

Figure 2.2.16 (c) illustrates the procedure. The desired outcome is 
that when node 2 is released by activity 7, no action be taken. (Trans- 
actions are terminated at node 4). If activity 6 releases node 2, then 
activities from node 2 are scheduled. This is accomplished by a double 
replacement of nodes 4 and 2. Examining the other examples of Figure 
2.2.16, it is seen that the replacement arrow always points to the node which 
is.inserted by the associated activity type. GRASP processes network 
modifications before it examines the end node of the arc to see if it is 
released. Thus, when release of node 2 occurs, the output side of node 4 
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is already in the network instead of the output side of node 2. No 
activities are scheduled. This condition will continue until type 6 
activity is completed (i.e., the node replacement will remain in effect 
until the end of the simulation or until a type 6 activity is completed). 
Then, as is indicated by the arrow, the output side of node 2 will be 
returned to the network and the activities leaving it scheduled. 

One last point, it is possible in 2,2.16 (c) that activity 6 is 
completed and node 2 is already in the network. This causes no difficulty. 
Activities will be scheduled from node 2 as expected. 

NOTE: Non-positive activity numbers cannot be 
used to facilitate network modifications . 

Hence, only positive activity types can be 
used to cause network modifications. 

2.2.5 Examples of Network Modifications ; 

The ability to cause network modifications during a simulation run 
is an important feature that deserves more attention. Its misuse can 
cause errors in the model that may be hard for a beginner to detect. The 
examples below illustrate different cases of node replacements. They are 
artificial and do not correspond to any reliability system. Their purpose 
is just to show how the node replacement really works. 
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Examole TIED It With Simul taneous Completions! 


This model illustrates the effect of two simultaneous arc completions 
on a node replacement. In the GRASP diagram represented below, all the 
arcs have a duration equal to zero except arc (3, 5). Arcs (5, 3) and 
(5, 2) which are identified with numbers 1 and 2 respectively, terminate 
at the same time. Because of this, the replacement of hode 3 by node 4 
cannot occur* 


, 1 ‘ 
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Figure 2.2.17 

The results are shown in Figure 2,2.18. Notice that no statistica 
were recorded at node 7. The event trace for this run shows some interest 
ing points. Node 3 is released at time 0, Since arc number I is not com- 
pleted yet, arc {3, 5) is scheduled. At time t * 1, node 5 is released. 
Arc (5, 6) decreases the release counter of node 6 from 5 to 4. Arcs 
(5, 3) and (5, 2) terminate at the same time and they both release nodes 3 
and 2 respectively. They are ranked in the event file as (5, 3) first and 
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Figure 2.2.18 Computer results for the 
example in Figure 2.2.17 
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and (5, 2) second. This Is reflected In the event trace by a duration 
equal to .953674 E - 5 for arc (5, 2). At time 1 node 3 1s released 
twice, the first time by arc (5, 3) and the second time by arc (2, 3). 

At time 2, two arcs hit node 5* that is why its release counter drops to 
-1. It Is released just once and the same cycle starts again. 

Example TIED 2: Misuse of the Node Replacement Option 
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Tigure 2.2.19 


A node N with no arc going out of it, does not have a file of its own 
in the array NSET/QSET, and therefore MFE(N), which indicates the starting 
location of its file. Is zero. This does not cause a problem when N is a 
sink node or there is no attempt to release the node. Otherwise, the 
program prints an error message and if the event file is empty, terminates 
abnormally. The computer results are shown in Figure 2.2.20. Only file 2 
status is shown. The point of this example is to illustrate a kind of 
modeling error that should be avoided. 









nvt'S rtkct tot nt i •• 


ORIGINAL PAGE IS 
OF POOR QUALITY, 


O H 
■ VI 

««o 

U 


M M 

u a 
u o 
«u 


s 

m 

M 


t4 M 

S Vi 

8S 


e o GO 


& 

|4 


i 

S£J 

O H 


e 

o 


5 m 

« flu 
' m 
•if« 


Ofld 

m o 

•H o 


UM 
fb a 

a B 

D 


M 

M e 


M 

1 ^ 

U 

r* 



e M 
♦ II 

r* 

flfl M 

• 

S 

e fli ' 


n M 


f H 


e 


H . 


O' 

M 

M fib 

B' 


M OSl 

» 

H O, 
vi! 

>• M 
M M 

0 * 


M M M M 
O O O O 


•- r- jMn 

# t • t 


U 
MM 
O O 
f4 M 
M flt 

H o> 
M H 


N M fl> 
M UM M 

ftl M M fl6 

H MHH 

M wna 



Figure 2,2.20 Computer results for the example 
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The arc durations In this example are chosen in such a way that ties 
occur in all comhi nations of completions of arcs numbered 1 through 4. 

The GRASP diagram is shown in Figure 2.E.21. 

In the actual replacements of node 3 by node 5» arcs identified with 
numbers 1 and 2 are assumed to be equivalent. So are the arcs numbered 3 
and 4. In Figure 2.2,21, arcs numbered 1 are; (7, 8) and (11, 12). Only 
one arc is identified with number 2, that is (8, 7), and only one arc is 
identified with number 3; that is (9, 10). Two arcs are identified with 
number 4; (10, 9) and (13, 14). The computer results are shown in Figure 
2.2.22. A summary of the node releases is shown in Figure 2.2.23. 

If arcs (7, 8) and (9, 10) represent for instance failures of different 
items, and the repair of one cannot be substituted for the repair of the 
other one, then the model above is no longer valid. The next example 
shows how this can be accomplished. 


Figure 2.2.2? 

Computer Results for the Example In Figure 2.2.21 
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Example NDR2; Multiple Node Replacements 


The model is basical ly the same as NDRl except for the first sub- 
network which is modified as shown in Figure 2.2.24. 

t»0 



Figure 2.2.24 


The results from this example are shown in Figure 2.2.25-26. The 

1 

tracing option allows to make comparisons with the previous example. For 
instance, at time 11 the transaction goes thorugh node 6 and not through node 4. 





Figure 2.2.25 
Computer Results for 
the Example In Figure 2.2.24 
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Example NDR3; Multiple Node R6p1acements 


This example illustrates another case of complex node replacements, 
It differs from the previous two examples in the first subnetwork onlyi 
which is represented in Figure 2.2,27. 



Figure 2.2.27 


The computer results are given in Figure 2.2.28, and a summary of all the 
releases of the nodes is provided in Figure 2.2.29. It shows how one node can 
be replaced by two other nodes at the same time. That is what happened at times 
1,3, 4 and 9. In these cases, two arcs, namely (6, 2) and (18, 2) terminate 
at node 2 at the same time, but node 2 is released just once. Other combinations 
of arc completions occur also. Node 3 is replaced by node 5 only at times 2, 7 
\ and 8. It is replaced by node 17 only at time 11 and it is not replaced at all 
at times 5, 6 and 10. The reader can verify, using Figure 2.2.29, that the 
statistics given in the computer results are correct. 



i ' 


i 










Figure 2.2.28 
Computer Results for the 
Example In Figure 2.2.27 
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1e N0R4: Another Misuse of Node Replacements 



X\ 

Eli iCE \ \ „ 

I I El\ XH 

W: 

/ \ 



Vil V 


'Vi 


Figure 2.2.30 


This example illustrates another problem that can occur with the use 

\ 

of node replacements. It is easy to tell from the network diagram in Figure 
2.2.30 that a completion of arcs numbered 3 and 2 will cause the output of 
node 17 to be replaced by the output of node 3. Since arc (3, 17) has a 
duration equal to zero, this replacement will occur over and over again at 
the same time, causing the number of simultaneous arc completions to exceed 
the maximum allowed. The program detects and prints an error message as 
Shown in Figure 2.2.31. If the time an arc (3, 17) were greater than zero, 
then such an error would not have been detected by the program. 




Figure 2.2.31 


Computer Results for the 
Example In Figure 2.2.30 
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Other examples of complex node modifications are presented in Figure 
2.2.32« It 1s left to the reader to study them and find out In which way 
they are different. 








□ 13 



Figure 2.2.32 More Examples on Node Modifications 





2.2.5 Statistics Collection 


In devel?tfi^?!ng a GRASP network, the modeler includes, directly on the 
network, nodes for collecting data. Such nodes are referred to as stati sti cs 
nodes . Any sink node is automatically a statistics node and any node, except 
a source node, may be designated as a statistics node. They behave exactly 
as other nodes and the information they collect refers to a time that a 
specified node is released. Several types of variables can be defined using 
the release times of a node. Figure 2.2.33 shows a general statistics node, 
and T denotes the type of statistics to be collected. 



Figure 2.2.33 
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T can be one of the following: 

F - First statistics ; record statistics on time and cost 
at first release of node only 

A - All statistics: record statistics on time and cost 
at all releases of node 

B - Be^een statistics: record statistics on time interval 
and cost between releases of the node. The time of 
first release is used only as a reference point for the 
first value of the time between releases 

0 - Delay statistics; this statistics relates to the nodes 

at wnich activity completions are accumulated, that is, 
nodes for which the number of incoming activity completions 
(N|, Ng) is greater than one. The delay time is the time 

interval from the first completion of an incoming arc until 
the node is released. A delay time is computed each time 
a node is released. 

C - Accumulator statistics; like "D" statistics, except time 
and cost Intervals are accumulated in master time and 
cost accumulators (for "C nodes, it is required that N1 * 
N2 = 2). Arcs into C-nodes may not have count types, and 
C-nodes may not be sink nodes. 

M - Mark node; no statistics are collected; every activity 
which leaves the node is “marked" with the current time 
and cost 

1 - Interval statistics: record statistics on the interval 

between the current time and cost and the "marked" by 
mark nodes on the incoming activities 


(a) (b) 



Figure 2,2.34 Examples of Statistics Nodes 
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As an example of how statistics are maintained by GRASP, consider 
Figure 2.2.34 (a). Node 6 collects FIRST or "F" statistics. The first time 
node 6 is released in a simulation, the time and the cost at the time of 
release are recorded. After the first release, no further data is recorded, 
but the node continues to function normally. So, one simulation run causes 
one pair of data points to be recorded. Hence, by repeating the simulation, 
say for 1000 runs, 1000 pairs of data points are recorded. The program will 
automatically compute the mean, standard deviation, minimum and maximum for 
the observed data. In addition, histograms of time and cost to first release 
of node 6 will be prepared. 

Figure 2.2.34 (b) is an example of a node which collects DELAY statistics. 
In this case, the statistic recorded is the time (and cost) interval between 
the time of the first activity completion at node 7 and the time (cost) when 
the node is released. Since node 7 might be released many times in a simula- 
tion run, it is possible that many data points may be recorded during each 
run. If the simulation is repeated a number of times, all observations from 
all runs are utilized to compute the mean, etc., and to form the histogram. 

A restriction on Delay (and Accumulator) nodes is that arcs into these nodes 
may not have count types. 

Accumulator or "C" nodes are a special kind of Delay node. For Time 
statistics, C-nodes collect the same statistics as Delay nodes. An additional 
restriction for C-nodes is that N1 = N2 = 2, The first input will always 
activate time (cost) accumulation and the second will terminate collection 
for that collection period. In addition, however, GRASP will maintain a 
master C-node accumulator to which all Time intervals collected by all C-nodes 
will be added. Thus, each simulation run will result in one datum being 
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recorded in the roaster Time accumulator. By performing repeated runs» 
a mean, standard deviation, and histogram of these acwsi.%«lated Times will 
be produced. Thus, C-nodes permit "adding up" all of the individual data 
points recorded by a Delay node. This corresponds to accumulated costs. 

The Time statistics recorded and reported at a C-node are identical to those 
that would be produced by a Delay node. 

C-nodes also permit accumulation of costs but in a somewhat different 
manner. In this case, the CN parameter on the arcs is used. If a C-node 
is associated with an arc by the CN parameter, then that C-node will collect 
the cost (if that activity each time it completes. A C-node can be associated 
with more than one activity in the network. Note that the cost feature of 
the C-node is not keyed by the arcs that are incident to the C-node. The 
cost feature is related only to the CN parameters. The statistics produced 
by an individual C-node will be the mean, standard deviation, and histogram 
of the costs of all arcs that list that C-node in their CN parameter. 

Also, a master C-node accumulator for cost is maintained. The master 
cost assumulator will miintain a total of all costs recorded by all C-nodes 
in the network. Hence, each simulation run records one datum in the master 
cost accumulator, and multiple runs will yield a mean, standard deviation and 
histogram of accumulated costs. 

It is possible to specify two target values called, T2 and C2, which 
are upper limits for the master time and cost accumulators, respectively. 
GRASP will compare the values of the master accumulators with the T2 and C2 
values. At the end of the simulation, a message will be printed indicating 
the number of times these values were exceeded. An option permits the 
exceeding of the T2 and/or C2 values to be considered a system failure. 
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Hence, excessive accumulated down time or cost can be defined as a system 
failure. 

ALL and BETWEEN statistics are similar to FIRST and DELAY statistics. 

MARK nodes and INTERVAL statistics require some additional comments, however. 
If a node 1s a mark node, then when the node Is released, each activity 
which leaves the node Is "marked" with the release time (and cost). These 
activities carry this mark with them throughout the network. For example, 

If a marked activity ends at a node and releases It, all activities scheduled 
from the end of node carry the same mark. If a marked activity passes through 
another mark node, the old mark Is destroyed and a new one Implanted. 

When a marked activity arrives at a node that collects INTERVAL 
statistics, the time (and cost) interval from the mark to the I-node Is 
computed and recorded. The mark Is not destroyed by this process. In this 
way, It Is possible to measure the time (and cost) for an activity to traverse 
a given portlorr of a network. 

2.3 State Transition Diagram Analysis 

State transition diagram analysis goes far beyond an interpretation of 
simple block diagram representation. It provides a complete Interpreta- 
tion of the entire system, and can be used to represent most probabilistic 
models. It also provides a systematic way for describing the behavior of a 
probabilistic system, under various constraints and assumptions, and also for 
checking the validity of any model. This section will explain some of the 
basic logic behind SRASP and illustrate how a GRASP network can be described 
by a state transition diagram. This section may be skipped without a loss 
of ‘continuity in understanding the remaining sections, However, It shows an 
interesting facet of the subject matter which might otherwise be overlooked, 
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The following description of a system in terms of its states and 
transitions may exhibit technical abstraction in the beginning, but it 
also possesses a strong intuitive appeal. A state transition diagram is a 
directed network where a node represents a state and an arc represents a 
transit! on from the state at its origin node to the state at its end node. 

We first need to look at the states and transitions of a single component. 
Assume that whatever the conditions in the system might represent, 
a component can be in one of the following states; 

» the component is operating 
$2 = the component is under repair 
$2 = the component is idle waiting for operation 
= the component is idle waiting for repair, 

$1 or $2 are active states and or are inactive (idle states). These 
states are sufficient for most modeling purposes and even some of these may 
be inadmissible in particular cases. For instance, if we assume that a 
component goes into repair as soon as it fails and is put back into operation 
as soon as it is repaired, then the idle states and are not needed. 

The time during which a component remains in one state, whether it is operat- 
ing (S^), under repair (Sg), waiting for operation (S^) or waiting for repair 
(S^), can be a fixed constant or a random variable specified by a particular 
probability law. When a component exhibits states and Sg only, the state 
transition diagram is a very simple network (Figure 2.3.1): 



Figure 2.3.1 State Transition Diagram of a Component 
with States SI and S2 Only 
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The GRASP network corresponding to Figure 2.3.1 is also trivial. 

Figure 2.3.2 gives four possible ways to draw a GRASP netvtfork equivalent to 
the state transition diagram in Figure 2.3.1, depending upon how we want to 
stop the simulation run. In Figure 2.3.1 (a) the simulation run ends when 








70 


the component gets repaired. If we want to collect meaningful statistics 
about failure times and repair times we need to make several runs by specify-- 
ing multiple runs in the input data. 

In Figure 2.3.1 (b) we can make only one run and still achieve the 
same results as in Figure 2.3.1 (a) by specifying the number of times we have 
a failure by the release counter at node 4. 

In Figure 2.3.1 (c) we Stop the simulation at a specified time T, by 
defining another source (4) and a sink node (5); the arc (4,5) has a length 
T. 

Figure 2.3.1 (d) is basically the same as Figure 2.3.1 (c). Other 
termination criteria can similarly be modeled. 

To provide an example of a situation in which a component can be in states 
S3 or S4, let us look at the case when a repairman, spare parts, or any other 
resource needed for repair may not be available, or sometimes the component 
needs to be shipped to a distant repair facility. Similarly, when the component 
is repaired, putting it back into operation may involve many activities, and 
in these cases time (and cost) consuming arcs need to be added to the network 
and considered in collecting the statistics of interest. 

Consider another example involving only one component. Assume that when 
the component fails it goes immediately Into repair if the repairman is not 
busy at that time. If the repairman is busy with another task, then we must 
wait until he finishes. Assume that we know the probability that the 
repairman will be busy at any given time. The state transition diagram is 
shown in Figure 2.3.3. 
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Figure 2.3,3 State Transition Diagram for One Component 
With Repair and Possibly a Waiting Time 
Before Going into Repair 

The transition from to Sg means that the component goes into repair as 
soon as it fails because the repairman is available at that time. Transition 
from S| to means that the component has to wait for repair, the repairman 
being busy. Transition from to Sg means that the component goes directly 
to repair and this occurs only when the repairman becomes available. 

Transition from Sg to means that the component is repaired and starts 
operating. Notice that transitions from to S| and from to are not 
admissible, and they represent the trivial assumptions that a component does 
not stop operating unless it fails and that the repairman does not stop work- 
ing until the component is repaired. Although these assumptions are not 
explicitly stated at the beginning, they appear clearly in the state transition 
diagram. Now let us look at the corresponding GRASP representation. If p, 
the probability of the repairman being busy is known, and the distribution 
of the waiting time is also known, then we can obtain the equivalent network 
in Figure 2.3.4. Sink nodes are not represented because of the various termi- 
nation criteria one can use. They are similar to the ones already considered 
in the previous case. 
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In Figure 2.3.4 (a) node 2 is a source node and arc (2,3) represents the 
time until failure. Node 3 has a probabilistic output: arc (3,4) occurs 
with probability p (i.e. , probability that the repairman is busy) and its 
duration is the waiting time. Arc (3,5) occurs with probability (1-p) and 
has no duration. Arc (4,5) occurs when the repairman becomes available and 
also has no duration. Node 5 is released when at least one of the arcs 
(3,5) or (4,5) occurs, and in this case only one of them can occur because 
of the nature of node 3. Arc (5,2) represents the time to repair the 
component. 

Figure 2.3.4 (b) differs from Figure 2.3.4 (a) in the duration of the 
arcs (3,5), (4,5) and (5,2) as shown in the network. 

Figure 2.3.4 (c) and Figure 2.3.4 (d) are simplifications of Figures 
2.3.4 (a) and (b), respectively, and they are easy to follow. Since the size 
of the network depends upon the number of nodes, it is better to select the 
equivalent models with a minimum number of nodes. 

If the probability that the repairman is busy and the waiting time 
distributions are not explicitly known, then by including in the model all 
the activities in which the repairman is involved we obtain the model in 
Figure 2,3.5. However, this network might be only a single part of a 
larger network representing all the activities that may keep the repairman 
busy when he is needed. 


TTR 



Figure 2.3.5 One Component with Repair, and Possibly Waiting 
for Repair if the Repairman is not Available 
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When a system has more than one component, its states are a function of 
the states of its individual components and the transitions between the 
states depend on the structural configuration of the components. For a. 
system with two components A and B, a state of the system is characterized 
by the couple state (S^,Sg), where is the state of component A and Sg is 
the state of component B. Without any confusion we can obtain the state of 
the system as merely the couple (S^,Sg). One need not distinguish between 
(S^,Sg) and (Sg, S^). If A can be in 2 states A^ (operating) or Ag (under 
repair), and B can similarly be in 8^ (operating) and Bg (under repair), then 
the system can have the following states: 

(A-j, B^) = both A and B are operating 
(Ay, Bg) = A is operating and B is under repair 
(Ag, B^) * A is under repair and B is operating 
(Ag, Bg) = Both A and B are under repair. 

The actual meaning or interpretation of these states depends on the 
logical configuration of the system (parallel, series, standby). The 
transitions between these states occur whenever the state of at least one 
component changes. However, in practically all real life situations, the 
probability that two or more changes in the states of the components occur 
at the same point in time is negligible. For instance, in a system involving 
two components, it is assumed that the components cannot fail simultaneously 
or get repaired simultaneously; all these events must be different. This is 
particularly true when life time and repair time distributions are 
continuous. For this reason, it is one of the major assumptions in the 
design of the GRASP program that events do not occur exactly simultaneously . 
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Some of the GRASP models in the next section may not be valid if the assump- 
tion above does not hold. If we are dealing with discrete probability 
distributions, or if for any reason it is suspected that the probability that 
two or more components change their states at the same time, then these 
combination events would need to be explicitly considered. However, with a 
little more effort it is not difficult to extend these models to handle 
such situations. 
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SECTION 3 

GRASP MODELS OF COMMON RELIABILITY SYSTEMS 

Several network examples which illustrate the capabilities of GRASP 
will now be presented and explained. Further documentation related to data 
input and output from the GRASP simulations will be presented in Section 4. 
Commonly encountered configurations are first presented. Depending upon the 
underlying assumptions and the type of statistics that need to be collected, 
several different GRASP models can be built from the same reliability block 
diagram. For some examples there may be several equivalent GRASP networks, 
in which case the model with the least number of nodes will be selected. 

The state transition approach will be used to describe some of the models. 

Once the networks shown in this section are understood, they can be considered 
as standard GRASP networks that can be utilized directly in modeling more 
complex systems. Models for simple examples with no repair and replacement 
are first presented. These simple models are then progressively extended 
to other familiar reliability configurations and the state transition diagram 
analysis will prove to be very helpful in describing and validating the GRASP 
models. 

3.1 Simple Systems with No Repair or Replacement 

Case 1; n Units in Series with Known Failure Probabilities 
No failure distributions are needed because during the given mission 
time- the failure probabilities are known. Figure 3.1.1 (a) shows the 
reliability block diagram and is self-explanatory. Part (b) shows the 
corresponding GRASP network. 
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Figure 3*1*1 n Simple Units in Series 


Each of the Nodes 2, 3, .... n+1 corresponds to a component; Node 2 
is also a source node. Notice the probabilistic output corresponding to 
whether a unit fails or not. There are two sink nodes. A simulation run 
that ends at node (n+2) indicates that the system did not fail. If termination 
is at node (n+3), it indicates that the system failed because at least one 
unit failed. 

The duration of every arc is taken to be zero and the model is independent 
of what types of statistics are to be collected at the sink nodes. Fi rst 
statistics are shown in the figure for completeness only. By specifying a 
large number of runs, we can determine the reliability of the system as being 
the ratio of the number of times node (n+2) was released to the number of 
runs. Figure 3.1.2 shows another equivalent GRASP network with n source 
nodes and 2 sink nodes. 
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Figure 3.1.2 Another GRASP Network for 
n Simple Units in Series 

It is obvious that a better way to determine reliability, R, of such a 

n n 

system is to analytically compute it directly as R = 1 - "pf (1"R|) = 1 - TT p,-* 

i«l ' i=l 

R^ being the reliability of unit i. The purpose of this example is to 
illustrate the GRASP modeling concepts. 

Case 2; n Units in Series with Random Failure Times 
All units start operating at the same time and the system fails if any 
one unit fails. The time between failures for each unit is represented by an 
arc from nodii 2 to node 3 in Figure 3.1; 3. The duration of the arcs are 
generated from the failure time distributions of the units. 



Figure 3.1.3 n Units in Series with Sampled Failure Times 



















Case 3; n Units in Parallel with Known Failure Probabilities 

The system fails if all units fail. This case is similar to case 1. 

The only difference between the GRASP networks in Figures 3.1,1 (b) and 3.1.4 (b) 
is in the way the probabilities are assigned to the output sides of nodes 2, 3, 
...» n+1, and in the meaning of nodes (n+2) and (n+3). Apart from the 
probabilities assigned to the arcs, the network looks exactly the same as in 
Figure 3.1.1 (b) for the first case. When node (n+3) is released, this 
means that the system did not fail. Node (n+2) is released only if all units 
fail and this indicates a system failure. Figure 3.1.4 (c) shows another 
GRASP network that is also very similar to Figure 3.1.1 (b) and Figure 3.1,4 (b). 
NOdes, (n+2) and (n+3) play the same role as in Figure 3.1.1 (b) (i.e., reliability 
estimation is based on the number of releases of node (n+2)). The probabilities 
on the output sides of nodes 2, 3, n+1 remain the same as in Figure 

3.1.1 (b). The release counter of node (n+3) is modified such that the node 
is released only if we have n incoming arc completions, which correspond to 
a system failure. 

Another equivalent network can also be obtained by interchanging nodes 
(n+2) and (n+3) in the network shown in Figure 3.1.2. The resulting network 
is shown in Figure 3.1.5. Notice that the only difference compared to 
Figure 3.1.2 is in the meaning of the releases of nodes (n+2) and (n+3). 

Other equivalent networks corresponding to cases 1 and 2 can easily be 
found. • 
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Case 4; n Units in Paranel with Random Failure Times 
This case is very similar to case 2. The release counter of node 3 
is n, meaning that the system fails only if all units fail. This case is 
represented in Figure 3.1.6. 



TBFl 



Figure 3.1.6 n Units in Parallel with 
Sampled Failure Times 


Case S; Example of a k-out-of-ii system 

A k-out-of-n system is a system that fails only if k units fail. As 
in the previous examples, we can identify two models depending on whether 
the probabilities of failure of the components are explicitly known or only 
the life time distributions are known. The first model is shown in Figure 
3.1.7, and the second in Figure 3.1.8. Note that a block diagram for such 
a system would be very cumbersome, while the GRASP network uses the same 
number of nodes as in the previous models. 
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3.2 Simple Systems with Replacement. No Repair 

In each of the following examples we assume that one has access to a 
finite pool of spare units, and that failed units are replaced through a 
switching mechanism with a probability of failure and/or a delay in its 
functioning. Failures are also assumed to be independent. 

Case 1; One Unit, n Identical Spares and Perfect Switching 
If the probability of failure of each unit is known, we obtain the model 
shown in Figure 3.2.1. 




Figure 3.2-1 One Unit With n Spares, Perfect Switching 
and Known Probabilities of Failure 
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Let p be the probability of failure of a unit. In the GRASP network, node 
5 is released if at least one unit did not fail. We can analytically compute 
the probability that this will occur; that is (1 - p” ). By performing 
multiple simulation runs, this result is estimated by the ratio of the number 
of times node 5 is released to the total number of runs. This result should 
be close to the theoretical value. Each time a failure occurs, the release 
counter of node 4 is decremented by one, and this node is released when all 
units fail (release counter equal to zero). 

If we are required to use the failure rate density function of each unit 
we obtain the equivalent network shown in Figure 3.2.2. The release counter 
of node 4 in Figure 3.2.2 (a) is initially set ton+1 because we have a total 
ofn+i units, and the release counter is decremented each time a unit fails. 


Time delay of the switch = 0 



Figure 3.2.2 One Unit with n Spares, Perfect 

Switching and Known Lifetime Distribution 
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The duration of arc (2,3) is the lifetime ^Of the unit which is sampled from 
a known assumed distribution. Arc (3,2) corresponds to the replacement 
activity and has a zero duration. Arc (3,4) has also a zero duration. We 
can reduce the number of nodes from 3 to 2 for this model as shown in Figure 
3.2.2 (b). Node 3 is now a sink node and its release counter is initially 
n+2 . The life cycle of a component is represented by the self loop (2,2). 

Since arc (2,3) has no duration, the released counter at node 3 is decremented 
to nH at time zero. Subsequent decreases of the release counter occur each 
time a unit fails. 

Case 2: One Unit, Identical Spares and Imperfect Switching 

The difference in this example and case 1 is that when a unit fails, 
an automatic switch that executes the replacement can fail. We assume that 
when a switch falls, another switch corresponding to another unit is 
triggered; if the new switch fails again, the replacement process is again 
repeated until the last spare unit is reached (parallel redundancy). Another 
arbitrary assumption is that all switches are equivalent and that when a switch 
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fails, the conresponding unit cannot be used although it is good. For this 
case we can identify several models. Figure 3.2.3 shows a network where 
probabilities of failure are known, p is the probability that a unit fails, 
and q is the probability that a switch fails* The branching from node 2 
corresponds to whether the unit fails or not. All arcs in the network have 
zero duration. If the unit does not fail, (the probability for this is 1-p) 
then the branch (2,6) is selected and node 6 is released, indicating that the 
system performed successfully. If the unit fails, (this occurs with probability 
p) then arc (2,3) is selected. Node 3 has a deterministic output and it 
generates arcs (3,4) and (3,8), Node 8 is a sink node that indicates a system 
failure due to the failure of all units. Its release counter is decreased 
by one every time the system experiences a failure of one unit* The initial 
value of its release counter is n+1 because there is a total of n+1 units in 
the system. Arc (3,4) corresponds to the instantaneous switching mechanism. 

The probabilistic output at node 4 corresponds to the possibility of failure 
in the switching mechanism. If the switch fails, arc (4,5) is selected; then 
node 5 is released and activates arcs (5,3) and (5,7). The purpose of arc 
(5,3) is to trigger another switch, and the purpose of arc (3,7) is to 
stop the simulation run when the last switch fails. One is subtracted from 
the release counter at node 7, which is initially n every time a switch 
fails, so that the release of node 7 indicates a system failure due to the 
failure of the first unit and all the switches. 

It is easy to see how Figure 3.2.3 can be modified in order to ac- 
commodate other assumptions about the system. Let us assume that when a 
switch fails, the corresponding unit can be activated by another switch. 
Everything else remains the same. We obtain the network shown in Figure 
3.2.4. The di f ference between the two networks is in the way the release 
counter at node 8 decreases . In Figure 3 . 2 . 3 one i s subtracted from the 
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release counter every time unit or a switch fans, while In Figure 3.2.4 
this Is done only when a unit falls. 



Figure 3.2.4 One Unit, n Spares, Switching 
Subject to Failure, No Shut Off 

Before Tooking at other examples, let us see how the network would be 
formed If Instead of having the probabilities of failure of the units 
explicitly specified, we only know their lifetime distribution. This is 
assumed the same for all units since they are identical. As above, we first 
construct the network corresponding to the assumption that a switch failure 
shuts the corresponding unit off. Referring to Figure 3.2,5, arc (2,3) 
represents the life time of a unit and is the only arc with a non-zero time 
duration. Upon failure of a unit, automatic replacement is triggered by a 
switch which has a probability of failure as shown by the probabilistic out<- 
put of node 3. Notice that one is subtracted from the release counter of 
node 6 whenever a switch fails, and from the release counter of node 7 
whenever a switch or a uni t fai 1 s . If we want to model the situati on where 
a switch failure does not shut the corresponding unit off, we only need to 
remove arc (4,7) from the network in Figure 3,2.5 so that the release counter 
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of node 7 is decreased by one only when a unit fails. 



Figure 3.2.5 One Unit, n Spares, Switching is Subject 

to Failure, Life Time Distribution is Known 

Case 3; One Unit, n Identical Spares, Switching with Delay 
As before, we first look at the situation where the probabilities of 
failure are known. The switches are not subject to failure and they are 
identical (i.e., the distribution of the time delay is the same for all 
switches). Let p be the probability of failure of a unit. It is easy to 
see that the GRASP network in Figure 3.2.6 is exactly the same as in the first 
case. Figure 3,2.1 (b), with arc (2,3) now having a duration which is the 
time delay of the switch. We can collect statistics on system down time by 
collecting delay statistics at node 3. The type of statistics to be collected 
is not shown in the network. The description of the rest of the network is 
the same as in case 1, and does not need to be repeated, If the failure 
probabilities are not explicitly given and the life time distribution of the 
units are known, little needs to be changed from the model in case T in order 
to incTude the switch delay requirements. The model is shown in Figure 3.2.7 
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I Notice that In the network of Figure 3.2.7 we can collect statistics on 

failure times of the units at node 3, but we cannot directly collect 
statistics on delays at node 2 because this node Is already a source node, 
j? It Is easy to modify the network by adding one node to collect this data If 

’ such statistics are needed. 

I Case 4; One Unit, n Spares. Switching with Delay and Possibly Failure 

I This case combines the previous two cases. Depending upon the assumptions 

made, we can Identify different models. 

If we assume that the failure probabilities are known and that a switch 
I shuts a unit off upon failure, then we obtain the network In Figure 3.2.8, 

which Is the same as that of Figure 3.2.3. The switching delay Is specified 
as the duration of arc (3,4). There are alternate ways to model the delay. 

For Instance we can specify It as the duration of arc (2,3) and (5,3). 



Figure 3.2,8 One Uni t , n Spares , Swi tchl ng Subject to 

Delay, Possibly a Failure and With Shut-off 
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If we assume that a switch failure does not shut a unit off, and everything 
else Is as in the previous model, we obtain the network shown In Figure 3.2,11. 
Notice that It Is an extension of the network given in Figure 3.2.4. Arc (3,4) 
and (3,5) have now non-zero durations and they represent the switching delay. 
There are also other ways to represent this delay. The Interpretation of other 
nodes and arcs In this network Is the same as In the network In Figure 3.2,4. 



Figure 3.2. IT One Unit, n Spares, Switching Subject 
to Delay and Failure, No Shut Off 

If we are given the lifetime distribution instead of the probabilities 
of failure, the GRASP network is exactly the same as In Figure 3.2.5. We 
only need to specify delay density functions for arcs (3,4) and (3,5). 

Case 5; Non-identical units 

To end this section on simple models with replacement, we now see how 
to handle the case where the system is composed of non-identical units. 
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We first look at the situation where the probabilities of failure are known* 

We will only extend the case 1 example for illustretive purposes. Require- 
ments from cases 2, 3 and 4 can be added to the new model without any problem. 

Let p^ be the probability of failure of unit i, i^l, rt+1. Since 
the units are assumed non-identical, the p^'s are not all equal. The 
laternatives, failure or non-failure of the unit, were represented previously 
by a single node with a probabilistic output. Since the probabilities of 
failure now differ, we need one such node for each unit. One way to model 
such a system is shown in Figure 3.2.12. 




Figure 3.2,12 One Unit, n Non-identical Spares, Perfect 
Switching, Known Probabilities of Failure 

Notice that Figure 3.2.12 is exactly the same as Figure 3,2,4 (b), apart 
from the fact that we have an extra unit. This is due to the fact that the 
assumptions made are such that the system behaves exactly like a system 
where the units are in parallel and are independent. However, for the. pur- 
pose of eventually including additional requirements in our model, it should 
be kept in mind that the systems are different. However, they behave exactly 
in the same manner and that is what the GRASP network shows . The foil owing 
situation will show this is not true if instead of the probabnities of failure 
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the life time distributions are specified. In a parallel system, all items 
might fail at the same time and this cannot occur in this model. The GRASP 
network is straightforward and is shown in Figure 3.2.13. The duration of 
each arc corresponds to the life time of one unit. If two distributions 
happen to be the same, the number of nodes in the network can be reduced by 
replacing one arc by a self-loop. This will cause the node with a loop to 
be released several times during the simultion. This does not modi fy the 
model because the subsequent release of a node will not affect the release 
of the sink node. As mentioned earlier, the network in Figure 3.2.13 can be 
extended in a variety of ways to include additional assumptions and require- 
ments* about the system. 



Figure 3.2.13 One Unit, n Non-identical Spares, Perfect 

Switching, Different Lifetime Distributions 

The analysis of systems with more than one unit with replacement is 
very similar to the analysis of repairable systems with 2 or more units. The 
GRASP model depends mainly upon the configuration of the system; that is, 
whether the units are in series, parallel, or standby. Many different models 
can be constructed because one can make a lot of different assumptions about 
the same physical configuration, and this parallels the Targe variety of systems 
one can encounter in real life situations. In the next section, we present a 
selection of several such models that are fairly representative. 
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3>3 Parallel Systems with Repair ‘ 

We need only look «t models of systems with 2 units,, since extensions 
to models of systems with more than 2 units can easily be obtained. From 
the block diagram shown in Figure 3.3.1, we can construct several GRASP net- 
works depending on the assumptions made. The state transition diagram 
analysis presented in "vhe previous chapter will be used to validate the 
models. 



Figure 3.3.1 Block Diagram for Any System 
With Two Units in Parallel 

We assume the following; 

- components fail completely independently of each other 

- a component goes into repair as soon as it fails, and each 
component has its own repair facility 

- a component starts operating as soon as it is repaired 

- a component does not stop operating until it fails. 

Before drawing the GRASP network of such a system, it would be helpful 
to draw the state transition diagram which is an accurate picture of all 
stated assumptions, let A and B be the components. Each has only two states i 
it is either operating or under repair. Let A1 , B1 be the operating states 
and A2, B2 be the repair states. The system can then be in one of the 
following states: 



* 




(A1,B1) 
(A1.B2) 1 
(A2.B1) J 
(A2,B2) 


» - ^ » 5 , 
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■ both units are operating 


» one unit Is operating, I 
the other under repair j 


System Is up 


■ both units are under repair; the system 1s down. 


This procedure of representing the state of a system In terms of the states 
of Its components Is used In many reliability analysis, and the order of the 
elements In each couple Is Irrelevant. For Instance, (A1,B2) Is the same as 
(B2,A1). Recall that GRASP assumes that the probability of an occurrence of 
two or more simultaneous events Is negligible. Hence, we can reasonably 
assume that transitions from (A1,B1) to (A2,B2) or from (A1,B2) to (A2,B1) 
are not admissible. Figure 3.3.2 shows the state transition diagram cor*^ 
responding to these assumptions. Notice, also, that transitions from (A2,B2) 
to (A1,B1), and from ( A2,B1) to (A1*B2), are also Inadmissible. The equivalent 
GRASP network Is obtained from previous networks corresponding to each unit. 



Assume that both units are operating when we start the simulation. Figure 
3,3.3 (,a) represents unit A. The arcs (2,3) and (3,2) represent the time 
between failures, and the time between repairs, respectively. Figure 3.3.3 (b) 
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represents Unit B. Arcs (4,5) and (5,4) correspond to the time between 
failures, and the time between repairs for the second unit. To be consistent 
with the symbolism introduced earlier, arcs (2,3) and (4,5) are failure 
arcs and (3,2) and (5,4) are repair arcs with negative arc types (number). 



Figure 3.3.3 Decomposition of a GRASP Network for 
2 Units in Parallel with Repair 

Nodes 3 and 5 are failure nodes and have a positive release counter; nodes 2 
and 4 are repair nodes with N2 = -1. Since nodes 2 and 4 are also source nodes, 
the initial value of their release counter is N1 = 0. The specification table 
would include the following information for the time to failure and repair 
time distributions. The TBF for unit one is Erlang (distribution type 4) wi th 
parameters in parameter set 1. The TBF for unit 2 is WeibuTl (type 12) with 
parameters in parameter set 2. Both repair distributions are Erlang with 
parameters in set 3. We need to put parts (a) and (b) in Figure 3.3.3 together, 
and add one more node to indicate when the system is down. This node is shown 
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In Figure 3.3.3 (c). Its release counter Indicates how many components must 
fail in order to define a system failure. Putting all the pieces together, 
we obtain the complete network of the system as shown in Figure 3,3.4* 



(3.4) 13 


Figure 3.3.4 Two Units in Parallel 
with Repai r 

It is not indicated what type of statistics are to be collected at node 6, 

and how the simulation is to be terminated. If repair statistics are also 

needed, we have to add a repair node and extend the network of Figure 3,3.4. 

The resulting network is shown in Figure 3,3.5. Six nodes are necessary to 

model the whole system: 

C 

- two nodes indicating whether unit A is up or down 
( - two nodes indicating whether unit B is up or down 

- two nodes indicating whether the system is up or down 
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It may appear that Figure 3.3.5 has too many arcs. We can usually reduce 
the number of arcs by adding more nodes to the network, but we have to keep 
in mind that the size of the network is mainly determined by the number of 
nodes. To validate this model we have to make sure that nodes 6 and 7 are 
released only when necessary. For this goal we need to refer to the state 
transition diagram in Figure 3.3.2 and look at the changes in the release 
counters for each admissible transition. The starting state is obviously 
(AltBl)i By referring to the state transition diagram, we have two possible 
transitions from this state; to the state (A1,B2) or the state (A2,BT). 



Figure 3.3.5 Two Units in Parallel 
with Repair 



Since the release counters at nodes 2, 3, 4 and 5 are initialized to (+1) 
or (-1), these nodes are released every time an incoming arc is completed. 
Hence, we only need to look at the release of nodes 6 and 7. When the simula- 
tion is started, nodes 2 and 4 are released and all arcs emanating from these 
nodes are scheduled. Arcs (2,3), (4,5), (3,2) and (5,4) are the only arcs 
With a non-zero time duration. When node 2 is released, N1 at node 7 changes 
from -2 to -1, and at node 6, N1 remains equal to 3. Node 4 is released at 
the same time, but the program schedules the arcs out of node 4 after the 
arcs out of node 2 if the input data for node 2 is read before node 4 (see 
data input section). This, however, does not make any difference when node 
4 is released, arc (4,6) has no effect on NT at node 6, which remains equal 
to 3, and arc (4,7) changes N1 from -1 to 0, causing node 7 to be released. 

Its release counter is then reset to N2 = -2, and arc (7,6) causes NT to 
decrease from 3 to 2 at node 6, The simulation stari;s with the system being 
in the state (A1,B1) and the release counters at nodes 6 and 7 being equal 
to 2 and -2, respectively. N1 is different from N2 at node 6 because we want 
to start the simulation by releasing node 7. The release of node 7 at time 0 
means that we start the simulation with the system just being repaired. This 
does not violate any of the assumptions of the system, and the same network 
can be used if the simulation starts with both items down or in any other 
state. Only N1 needs to be initialized differently for nodes 6 and 7. Once 
the simulation is started, release counters change only at the disturbing 
events of the system (i.e., an item fails or gets repaired). Referring to 
each transition in the state transition diagram (Figure 3.3.2), we can sum- 
marize the changes in the release counters of nodes 6 and 7, in eac^ of bbe 
following tables the first column indicates the node numbers, and the second 


ORIGINAL RAGE B 
OF POOR QUALffY 

column the changes in the release counters. Each change is represented by an 
arrow corresponding to the arc that caused the change, with the origin of the 
are reported on the arrow. A Tetter R in the arrow indicates a reset of the 
release counter. 
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Notice that the states ( A'(»B2) and ( A2,B1) are equivalent. This Implies 
that the corresponding values of the release counters at nodes 6 and 7 are 
the same. However, Identical values of the release counters at two dlf^ 
ferent states does not Imply that these states are equivalent. For Instance, 
the release counter values are the same for the states (A1,B1) and (A2,B2), 
although these states are obviously different. This Is due to the fact that 
the nature of the next disturbing event Is different depending upon whether 
we are In state (A1,B1) or (A2,B2). The network shown In Figure 3.3.5 Is 
obviously not unique. It Is not difficult to verify that the network given 
In Figure 3,3,6 is also valid. It uses the network modification capacility 
and it may be easier to follow because it is less dense than the network in 



Figure 3.3.6 GRASP Network for 2 Units 
in Parallel 



It is also possible to have other models by relaxing model assumptions. 

The network in Figure 3.3.5 can easily be modified to include the following 
situations: 

- the failure of one item causes the other iti# to stop functioning 
without being failed. The system starts functioning again as soon 
as the failed item is repaired. 

- The failure of one item causes the other item to fail with a known 
probability. However, only one needs to be repaired in order for 
the system to function again. 

- only one repair facility is available for both items 

^ any combination of the assumptions above. 

3.4 Series System with Repair 

As in the previous case, depending upon the modeling assumptions, several 
equivalent GRASP models can be built from the same block diagram. It is also 
sufficient to study systems with only two components. The block diagram is 
shown in Figure 3.4.1 and since we have only two units, it does not convey 
a great deal of information about the system operation characteristics. Hence, 
we need to state the assumptions under which the GRASP model will be constructed. 
These are: 

- components fail independently of each other 

- two repair facilities are available so that a component goes into 
repair as soon as it fails 

- a component starts operating as soon as it is repaired even if the 
system is still down 

’ - a component does not stop operating until it individually fails. 

In other words, a component keeps operating even if the system is 
down. This is a common assumption for systems such as aircraft 
operational system. 
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Figure 3,4.1 Block Diagram for Any System 
with 2 Units in Series 


Notice that these assumptions are exactly the same as the one$ made 
for a system with two units in parallel. In the parallel system, both units 
must be down in order for the system to be down and once the system has 
failed, only one unit needs to be repaired in order for the system to be 
repaired. In a series system, if both components are down, both units need 
to be repaired in order for the system to be repaired. Similarly, if the 
system is operating it goes down if one unit goes down. This dichotomy between 
a parallel system with repair and a series system with repair makes them very 
similar. This will become apparent in the representation of the transition 
diagrams and their corresponding GRASP networks. States are defined as before, 
but their Interpretation is slightly different. 

(A1,B1) = both units are operating; system is up 

(A1,B2) r one unit is operating; the other 
< “ 

(A2,B1) unit is under repair 

(A2,B2) = both units are under repair 


system is down. 


The state transition diagram is exactly the same as for the parallel 
system, and does not need to be presented. Hence,' we will also refer to 
Figure 3.3.2 as the state transition diagram for a series system. Proceeding 
as in the parallel system, we obtain the network in Figure 3.4.2. We assume 
that the simulation starts with both items operating. We have as before: 
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2 nodes representing the states of Item A 
* 2 nodes representing the states of Item D 
2 nodes representing the states of the whole system 

The network In Figure 3*4.2 differs from the network for a parallel system 
(Figure 3.3.5) only In the way the release counters for first release are 
initialized at nodes 6 and 7. 



Figure 3.4.2 Two Units in Series with Repair 



lOS 
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The simulation starts with the release of nodes 2 and 4. At th? time, the 
release counter of node 7 is -1 and the one fo<^ node 6 remains unchanged. 
The starting state Is (AV,B1). To validate the model we will proceed as 
before; examine the changes In the release counters for each transition. 




(A1.B2) >(A1,B1) 


(A1,B2) 


(A2.B2) 












3»fciet(» t -u:* 
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After the first release of node 7, the state (A1,B1) corresponds to the values 
of 1 and -2 1'n the release counter of nodes 6 and 7«. respectively* Starting 
from this state a second time* it is easy to verify that at the next states 
(A1,B2) and (A2,B1) the release counters contain the same values as above. 
Hence, there is no need to go through the remaining transitions. 


(Al.Bl) ►(A1.B2) 


(A1 ,B1)- ->(A2,B1) 



Through this analysis we see that there is no way for node S to be 
released unless the system goes down; and there is no way for node 7 to be 
released unless the system gets repaired. As in the parallel case, states 
(A1,B2) and (A2,B1) have the same effect on the system. It is possible 
to have other equivalent networks. Figure 3.4,3 shows one such network that 
uses a network modification scheme for the repair node instead of a node with 
a negative release count* Each network has its own merits, and it is up to 
the user to choose the one that appears more underVttandable . 

The previous assumptions can be relaxed as in the parallel system's 
case, and there are also different ways to extend the model. 
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Figure 3.4.3 Two Units in Series 
With Repair 



3.5 Standby Redundancy 

This model is depicted by the block diagram in Figure 3,5.1, The 
system operates with only one unit. As soon as this unit fails, the redundant 
unit takes over, Hence, the system goes down only if both units are in a 
failed state. 






Figure 3.5.1 A One Unit Standby 
Redundant System 

We make the following assumptions; 

- a unit cannot fail when it is In a stand-by redundant position, and it 
remains inactive until the other unit fails 
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-■ the switch-over Is perfect (no failure, no delay) 

- when a unit fails, it goes immediately into repair j 

- when a unit is repaired, it stays in a stand-by position if the 
system is operating, and starts operating if the "up" component 
fails 

- the performance of the system is the same whichever unit is operat- 
ing. 

Such a system is often called a “cold" stand-by system in contrast 
to the system where the redundant unit can fail, which is called a "warm” 
or active system. 

Given the above assumption, we can identify the following states for 
each unit: 

A1 (Bl) the unit A (B) is operating 

A2 (B2) the unit A (B) is under repair 

A3 (B3) the unit is in a redundant position. 

It may help to look at the behavior of an inidivdual component before 

examining the combined system. Figure 3.5,2 shows the state transition 
diagram for component A and Figure 3.5.3 shows the corresponding GRASP model 


Figure 3.5.2 State Transition Diagram for One 

Component in a 2-comppnent Stand-by 
System 
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It Is easy to see in Figure 3.5.2 why the transitions from AT to A3 and 
from A3 to A2 are not admissible. The network In Figure 3.5.3 has 3 
nodes corresponding to the 3 states of the copmonent, and It will he included 
in the network representing the entire system. Taken by itself, we see 
that only 3 arcs are needed to represent how long a component stays In one 
state. 


Time in standby 



Figure 3.5.3 GRASP Network Corresponding 
to Figure 3.5.2 




From the states of the individual components, we can identify the following 
admissible states for the entire system. 


(A1,B3) 

{A3.B1) 

(A2,B1) 

|A1,B2) 

(A2,B2) 


unit A is operating 
B is redundant 


A is redundant 
B is operating 


A Is under repair 
B is operating 


A Is operating 
B 1 S under repai r 


) System is up 


Both A and B are 
under repair 


System is down 

Because of the configuration of the system, it is easy to visualize why 


the other states, such as (A1,B1), are not admissible. 
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there Is no real problem identifying all admissible transitions, and the 
state transition diagram of the whole system is given by Figure 3,5.4 Only 
8 transitions (excluding transitions for which 2 everts occur at the same time) 
are admissible. 



Figure 3.5.4 State Transition Diagram of a 
Cold Stand-by 2-un1t System 

Assume that the simulation starts in state (A1,B3). The GRASP network Is 
represented by Figure 3.5.5. It has the following components. 

r 

3 nodes whose releases correspond to the states of component A 

i 3 nodes whose releases correspond to the states of component B 

2 nodes whose releases correspond to whether the system is down 
or repaired. 


Only arcs representing the time to fail and the time to repair of compo- 
nents A and B, that Is a total of 4 arcs, have non-zero duration. All the 
others are for the control of the node release counters. 
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Figure 3.5.5 GRASP Network for a One-Unit System 
with a Cold Stand-by Redundant UMt 


The validation of this model proceeds as in the previous examples, and 
is briefly summarized as follows when the simulation begins, node 2 is 
released. Since arc (2,5) has a nonnegative type, N1 at node 5 remains equal 
to -1. Examining the changes of the release counters for nodes 2, 5, 8 and 9, 
the following tables can be constructed. 

It is evident from these tables that the GRASP network in Figure 3.5.5 
is an exact model of the system. The symmetry that exists in the system is 
also shown in these tables. For instance, notice that the behavior of 
the system as represented by the release counters of nodes 2, 5, 8 and 9 
is the same as that for states (A2,B1) and A1 ,B2) , and for (AT, 83) and 
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3.6 Other Common Configurations 

Another coirmon configuration in reliability is the k-out-of-n structure, 
As an example, we model a 2-out>of-3 system under the same assumptions as 
for a parallel or series system, that is: 'y 

- components fail independently of each other 

- a failed component goes immediately into repair 

- a component starts operating as soon as it is repaired 

- a component does not stop operating until it fails. 

A 2-out-of-3 system can be a system of 3 electric generators where 
at least 2 must be working in order for the system to function, or a 
three*ingine air plane that can survive with only two engines. Let A, B, 
and C be the elements in the system, Each component has only two states; 

Al, Bl, Cl are the operating states and A2,B2, C2 are the down states, 

Every combination of the states of A, B, C forms an admissible state of the 
system. • 


(A1,B1,C1) 

* system i s up 

(A1,B1,G2) 

“system is up 

(Al ,B2,C1) 

“ system is up 

(A1,B2,C2) 

“ system is down 

(A2,B1,C1) 

“system is up 

(A2,B1VC2) 

“ system is down 

(A2,B2,C1) 

“ system is down 

(A2,B2,C2) 

= system is down 


The state transition diagram in Figure 3.6.1 does not show the transitions 
corresponding to the occurrence of two or more simultaneous changes in the 
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Individual components, since the probability of such an occurrence Is assumed 
negligible. The GRASP network Is shown In Figure 3.6.2. 


A1,B1,C2 


A1.B1,C1 


A1,B2,C2 


A2iBl*Cl 



A^,BT.C2 


A2.B2,C2 


A2,B2,C1 


Figure 3.6.1 State Transition Diagram 
for a 2-out-of-3 System 
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To validate the model we do not need to look at all of the transitions, 
because the following classes of equivalent states can be Identified. 
{(A1,B1,C1> » class 1 

T(A1,B1,C2), (A1,B2,C1). (A2,B1,C1)} - class 2 

{(AT,B2,C2), (A2.B2,C1). (A2,B1,C2)} - class 3 

{(A2,B2,C2)} * class 4 

We need to look at the transitions for only one element In each class. 
Let us examine the following representative from each class: 

(Al.BUCl), (A1,B1,C2), (A1,B2,C2), (A2,B2,C2) 

Note that there is a total of six transitions to examine. When the 
simulation starts. N1 becomes equal to >1 at node 8 and remains unchanged at 
node 9. 


(Al.Bl.Cl) ->(A1,B1,C2) 

, 7 . o 


(.A1,B1.C2)— ^(Al.Bl.Cl) 

I 8 . 


(A1,B1,C2) »(A1,B2,C2) 


•2 — _1 
1 — ^ 0 --^ 2 


(A1,B2,C2). >(A1,B1,C2) 


-1 — i_> 0 — ^-3 

2 — i -»2 — 1 


(A1,B2,C2) »(A2,B2,C2) 


(A2,B2,C2)— ♦(A1,B2,C2) 


CD 

-l-JU -2 

9 

"I 

CM 


8 

- 2 - 

^,1 

9 

1 - 
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3.7 Example With Cost 

The average lifetime of a non-repalrable fuel pump Is 1700 hours. When 
It falls, It takes one to twelve hours to buy a new one at a cost of $500.00, 
and one to three hours of labor at $30. 00/hour to replace It. Preventive 
maintenance could double the lifetime of the pump. It consists Of Inspecting 
every month, the rotation speed, the output and the electric power consumption. 
If any of these characteristics falls below an acceptable level of performance, 
then this 1s considered a failure and the pump Is replaced. The acceptable 
level of performance Is defined to be that level below which the pump will 
not survive another month. In case a replacement Is necessary during mainten- 
ance, a new pump Is Immediately available at a cost of $450.00. In case the 
old pump Is still good, then It Is just cleaned and lubricated and put back 
Into service. The Inspection operation takes a half to one hour, the replace- 
ment, If any, one to two hours, and cleaning and lubricating, one to one and 
a half hours, The labor cost during maintenance Is $20. 00/hour. After each 
maintenance operation, the pump Is assumed to be as good as new, whether It has 
been replaced or not. If the pump fails before the scheduled maintenance time, 
then 1t 1s replaced as in the case without preventive maintenance. It is 
assumed that the lifetime of the pump is exponentially distributed, the pro- 
curement time Is uniformly distributed and the replacement and malntenaitce 
times are normally distributed. For the normally distributed times, it can 
safely be assumed that the minimum and maximum are three standard deviations 
away from the mean. We want to estimate the average down time and the total 
cost under each of the policies, with or without preventive maintenance, over 
a time span of three years. 
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Case without Preventive Maintenance ; 

The G8ASP network is shown in Figure 3*7.1. Arc (2, 3), represents the 
lifetime of the pump. Every time node 2 is released, the duration of arc 
(2, 3) is sampled from the exponential distribution with parameter x » 1/1700. 
Node 3 represents the event when the pump fails. It is also a mark node so 
that the time at which it is released is recorded for later use. Arc (3, 4) 
represents the procurement time which is sampled from the uniform distribution 
between 1 and 12, and its setup cost is $500.00. Arc (4, 5) represents the 
replacement time which is sampled from the normal distribution with a mean w 
equal to 2 (middle of the interval [1, 3]) and a standard deviation a such 
that 6a » 3 - 1 » 2 (assuming that minimum * u - 3a and maximum * y + 3a). 

The variable cost for arc (4, 5) is $30.00. Node 5 collects interval statis- 

% 

tics representing how long the pump was down. The purpose of arc (5, 2) is 
to start a new cycle; its duration is zero, so that node 2 is released immedia- 
tely after the pump has been replaced. Arc (6, 7) represents the time span 
of three years or 26,280 hours. Node 7 is a sink node and represents the 
end of the simulation. 




Figure 3.7.1 GRASP Network of a Fael Pump 
without Preventive Maintenance 








Before describing the model, It Is first needed to estimate a few para- 
meters. The average lifetime ls2j(1700 ■ 3400 hours. Let T be the lifetime 
of the pump. The probability to replace the pump at the end of the month Is 
estimated below. 

p ■ Pr. [I month < T < 2 months] 

■ Pr. [720 hours < T j< 1440 hours] 

* Pr. [T < 1440 and T > 720] 

* Pr. [T < 1440] X Pr. [T > 720] 

- Pr. [T < 1440] X (1 - Pr. [T < 720]) 

■ [1 - exp(-1440/3400)] X [1 - (1 - exp (-720/3400))] 

- [1 - exp(-1440/3400)] x [exp (-720/3400)] 

« 0.2794 

The Inspection time Is normally distributed with minimum ■ .5, maximum • 1, 
u » .75 and a ■ (1 - .5)/6 * .0833. The replacement time Is normally dis- 
tributed with minimum * 1, maximum « 2, u » 1.5 and o » (2 - l)/6 « .1667. 

The time for cleaning and lubricating Is normally distributed with minimum ^ 1, 
maximum » 1,5, w = 1.25 and a » (1.5 - l)/6 ■ .0833. Minnimum and maximum 
values are not needed in defining a normal distribution, but they are used 
here to estimate the standard deviation. The GRASP model is represented in 
Figure 3.7.2 
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Figure 3,7.2 QRASP Nttwork of a Fuel Pump 
with Preventive Maintenance 



Nodes 2 and 10 are source nodes. Node 2 represents the time at which the 
pump starts operating and node 10 starts the time span of three ^ears which 1s 
represented by arc (10, 11). Arc (2, 3)^ represents the Tifetlme of the pump 
which Is an exponentlany distributed random variable with X « 1/3400, Arc 
(2, 3)| has an Identification number equal to 1 which Is used to replaca the 
output of node 4 by the output of node 7. Arc (t, 3)g represents the time 

tt' 

between scheduled maintenances. Its Identifi cation number 1s 2 so that 
when node 4 Is released, Its output will be replaced by the output of node I. 
Node 3 represents either, the failure of the pump or the end of the time period 
between maintenances. It Is a mark node with a halt capability ‘so that one 
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and only one arc,, (2, 3)^ or (2, 3)g will be completed. Arc (3> 4) Is a 
dummy arc. Node 4 represents the same event as node 3 and It has no output 
of Its own because ft will be replaced either by node S or by node 7i depending 
on which arc, (2, 3)j^ or (2, 3)g» Is completed. Arc (5, 6) represents the 
Inspection tlem. Arc (6, 9) represents the replacement, If any, during 
maintenance and Is scheduled with probability .2794. Arc (6, 9) represents 
the cleaning and lubricating operations and Is scheduled with probability 
.7206. Arcs (7, 8) and (8, 9) are similar to arcs (3, 4) and (4, 5) respec- 
tively, of the model for the case without preventive maintenance. Node 9 
collects type I statistics and node 11 represents the end of a simulation 
run’. 

This Is as far as we shall carry the analysis Of simple systems, since 
It provides a sample of the kinds of repairable systems that can be analyzed 
using GRASP. We hope that the purpose of this chapter has been accomplished, 
and that the reader previously unacquainted with GRASP methodology has be- 
come sufficiently Interested to more closely examine the GRASP methodology. 

The next example illustrates approaches that can be followed for modeling 
complex systems. 
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3.8 A More Complex Example 

In this section a complete reliability system is presenteid and analyzed. 

It is more complex than previous examples and a network decomposition 
technique is presented that allows the system to be analyzed in parts. 

Figure 3.8.1 presents the GRASP Block Diagram for the system. The three 
units labeled one through three are control centers that work in concert to 
control a process. Each of the control centers is itself a complex, parallel 
redundant system. The internal structure of all of the control centers is 
the same. The reliability of the components within the centers may vary, 
of course. For the purposes of this example, the control centers will be 
assumed identical in structure and content. This is not a stringent assump- 
tion if the centers perform similar functions and consist of similar types 
of equipment. The simulation approach to reliability provides estimates of 
performance. It is not unreasonable, then, to estimate the reliability of 
a class of components and assume that each member of the class performs ac- 
cording to that estimate. 

Now, it is obvious that the GRASP network of Figure 3.8,1 is very 
complex and involves a large number of nodes and arcs. Also, since 
reliability is concerned with rare events, an enormous number of events may 
need to be simulated to obtain a single failure of the overall system. To 
obtain the repeated failures needed to estimate the failure time distribu- 
tion, an excessive amount of computer time may be required. 

The solution to this dilemma is to isolate independent subgroups in the 
Block Diagram and simulate them separately to obtain TBF and repair distribu- 
tions for the subgroups. These subgroups are then substituted into the Block 
Diagram as single components and the simplified system simulated. For example. 















In Figure 3.8.1 suppose that TBF and repair distributions are known for the 
components labeled 1, 2, and 3. This situation Is equivalent to Case 1 of 
section 3.1.8 In order to obtain this desirable situation It Is necessary 
to analyze the control centers that make up units 1 through 3. The 
control center Itself Is somewhat complex, but simulating one of them Is 
much simpler than simulating 3 of them together. 

Further, having decomposed the system once, It Is reasonable to de- 
compose the control centers Into still lower level subgroups. Figure 
3,8.2 shows the three level decomposition that will be used to study this 

.i! 

system. Comparing Figure 3.8.2 to Figure 3.8.1 will Indicate how levels 
3(a) and 3(b) fit Into the Level 2 decomposition shown In Figure 3,8,1. 

Briefly, the ^procedure will be as follows. Levels 3(a) and 3(b) 
contain the Individual co«»ponents of the system. Estimates for the 
reliability characteristics of these components are assumed known. The 
GRASP Networks for Level 3(a) and 3(b) are prepared and simulated. The 
GRASP output for 3(a), say, will consist of histograms of time to failure 
and time to repair for the 3(a) system. Using statistical goodness-of'-flt 
techniques, a probability distribution can be fit to these histograms 
[20] (alternatively, the histograms produced by GRASP can be used Instead 
of goodness-of-fit tests). The result Is that the 3(a) subgroup can be 
represented by a single block In the GRASP Block Diagram. This procedure 
Is repeated for the 3(b) subgroup. At level 2 the results of levels 3(a) 
and 3(b) are used as the failure and repair characteristics for the blocks 
12, 13, and 14, 15 in Level 2, respectively. Units 10 and 11 are single 
units and are simulated directly. Then, Level 2 Is simulated, and the , 
resulting histograms fit to distributions which are used In the simulation 
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of Level 1, The Level 1 simulation gives estimates of the reliability 
characteristics of the overall system shown in Figure 3.8.1. 

Figure 3.8.3 contains the GRASP Block Diagram and specification table 
for Level 3(a). Figure 3.8.4 is the GRASP network for Level 3(a). 

Figures 3.8.5 and 3.8.6 are analogous for Level 3(b). The GRASP networks 
for Level 2 and Level 1 are shown in Figure 3.8.7 and 3.8.8, respectively. 
Detailed information is given in Figure 3.8.3 for Level 3(a). For example, 
from the specification table it can be seen that unit 1 has a TBF distribu- 
tion that is gamma with a mean of 25 time units and a standard deviation 
of 18, The analyst has determined that 500 is a reasonable maximum to 
use. Also, unit 1 has an exponential repair distribution with mean 0.1 time 
units. 

Figure 3.8.4 reveals how the standard GRASP Networks seen previously 
can be used to build up more complex situations. Units 4 and 5 in Level 
3(a) form two units in parallel with repair (see 3 . 3 . 6). Nodes 11 through 
19 in Figure 3.8.4 are taken directly from Figure 3.3.6. The time informa- 
tion for the- arcs is taken from the Specification Table in Figure 3.8.3 
and the list of distribution numbers in Section 2. The parameter sets 
specified are those that will be used on the data cards describing the 
network . 

Now, if we consider units 4 and 5 as a single component. Level 3(a) 
is just four units in series with repair as in Section 3.4. Nodes 2 
through 10 of Figure 3.8,4 are connected to nodes 20 and 22 and they 
represent units 1, 2, and 3. Note that each group of nodes that represent 
a unit (say nodes 2, 3, and 4) are connected to nodes 20 and 22 by two 
arcs. One arc gives an indication of failure (arc 3-20), and the other 
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SFECIFIC/V7I0N TABLE - LEVEL 3(a) 


Mean 



TBP 

Distribution i St. Dev 


_ I 25 

Geoma 


Exp 


Erlang-2 


Gamma 


Gamma 


Min 

Other 

Max 

Information 



Tfait 

Repair 

Distribution 

B 

E^ 

. 2 

Exp 

3 

GazTona. 

B 

Normal 

5 

Normal 


30 


5 


5 


Mean 


Same as 5 


Same as 4 


Other 

Information 



Same as 5 


Same as U 




Figure 3 . 8.3 Block Diagram and Specification 
Table for Level 3 (a-) 
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Indicates completion of repair (arc 4-22). 

The arcs leaving nodes 17 (failure) and 19 (repair) provide this Informa- 
tion for the parallel combination of units 4 and 5. Hence, they may be con- 
nected to nodes 20 and 22 exactly as are the fall-repair arcs of the other 
units. 

All that remains Is to collect statistics from the arcs leaving nodes 
20 and 22. Nodes 23 through 27 do this. Node 26 will collect the histogram 
of failure time. Since node 25 Is a source node It is released at the start 
of the simulation. Arc 25-26 will be the first activity to complete at 
node 26 which collects Delay statistics. Recall that D statistics are the 
time delay from first activity completion to node release. Since the sys- 
tem starts In an operating condition, the next activity completed at node 
26 will be from arc 23-26 which indicates a system failure. Node 26 will 
be released with the completion of the second activity since Nl=2. The 
Information recorded is the time between first activity completion and node 
release. Note that this is the time to system failure. The release count 
will then be set to N2=2. 

The next activity to node 26 must be arc 23-26 (end of repair) which 
win reduce the release count from 2 to 1 at node 26, The node is again 
released when the system fails and arc 24-26 is taken. Node 26, then, will 
continue to collect statistics on the time during which the system v/as 
operating: in other words, the time between failures. 

Node 27 will collect statistics on the repair times. The first 
activity to complete at node 27 will be arc 24-27. Hence, the first completion 
at node 27 is induced by system failure and the second activity required for 
node release is induced by the end of repair. The interval , as desired, cor- 
responds to the repair time. Sink node 28 will be released when 999 system 









failures have occurred. Even though statistics at node 28 are not of interest 
In this case, first statistics will be collected. This occurs because, even 
If we leave the desired statistics type blank, the default type at all 
statistics nodes Is F. 

Figures 3.8.5 and 3.8.6 are the Specification Table and GRASP Network 
for Level 3(b). Note that the network in 3.8.6 is Identical in structure 
to Figure 3.8.4 for Level 3(a). The only major difference is that there are 
only two single units In series (units 6 and 7) instead of three. To be 
consistent with this, N1 = N2 = 3 for node 46. 

The unit and node numbers in Figure 3.8.3 and 3,8,4 are different from 
those in Figure 3.8.5 and 3.8.6. This is not necessary, of course, since 
they will be simulated separately. However, to promote clarity for this 
example, node and unit numbers will not be repeated between networks, 

Note that in Figure 3.8.6, arcs 35-36 and 38-39 have the same para- 
meter set and distribution type. Since units 8 and 9 are identical, 
they have the same TBF distribution. It is not necessary that the para- 
meters of that distribution be stored in different parameter sets. All 
arcs with the same distribution can reference the same parameter set. 

The Level 2 GRASP network is shown in Figure 3.8.7, Distribution 
Information for units 12 through 15 is left blank because the distribu- 
tions will not be known until Levels 3(a) and 3(b) are simulated. Units 
10 and 11 are single components and their specifications are shown in 
Table 3.8.1. 

Each of the paralleled groups at Level 2 (see Figure 3.8,2) is 
represented by nine nodes (nodes 53 through 61 for example) which are 
arranged exactly as in Figure 3.3.6. These three parallel groupings are 
connected in series by nodes 80 through 82 just as nodes 20 through 22 
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connect the units in series in Figure 3.8.4. Finally, nodes 83 through 88 
collect statistics in exactly the same manner as nodes 23 through 28. 


Table 3.8.1 Specification Table for Units 10 and 11 


SPECIFICATION TABLE - UNITS 10 AND 11 

Unit 

TBF 

Distribution 

Mean 

Min 

Other 

Information 

St. Dev. 

Max 

10 

Erlang-2 

7 

0 

Same as 11 

MB' 

50 

11 

Erlang-2 

7 

0 

Same as 10 

K. 


Unit 

Repair 

Distribution 

Mean 

Max 

Other 

Information 

St. Dev. 

Min 

10 

Exp 

0.1 

0 

Same as 11 


10 


Exp 

0.1 

0 

Same as 10 

- 

10 


Figure 3>8.8 is the GRASP Network for Level 1, It is a direct application 
Statistics are maintained in exactly the same manner as for the other levels, 
One difference is included, however. A C-node is added to keep track of the 
accumulated down time over the specified mission time of 1000 time units. 

C-node 106 is activated and deactivated exactly as in node 107 which 
collects the repair time histogram. The difference is that node 106 main- 
tains a running sum of the time that is activated so G-node 106 records one 
datum each time a run is completed. The run is terminated by the release of 
node 110. Multiple runs will yield a histogram of cumulative down time at 
node 106, 
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SPECIFICATION TABLE - LEVEL 3(b) 

Unit 

TBF 

Distribution 

Mean 

Min 

Other 

Information 

St. Dev. 

Max 

6 


20 

0 


Gamma 

■ 

15 

300 

7 

Erlang-2 

22 

0 



300 

8 

Exp 

5 

0 

Same as 9 

« 

100 

9 

Exp 

5 

0 

Same as 8 


100 

Unit 

Reapi r 

Distribution 

Mean 

Min 

Other 

Information 

St. Dev. 

Max 

6 ; . 

Exp 

0.2 

0 



10 

'n. 
; *; ^ 

Exp 

0.2 

0 • 


- 

10 

■ y' 
8‘>; 

i 

Triangular 

1 


0 

Mode-O.l (same as 9) 


1 

V 

■ 9-. 

Triangular 

, 


0 

Mode»0.1(same as 8) 


1 


/* . 


Figure 3,8.5 Block Diagram and Specification 
Table for Level 3(b) 











Once again, the parameter sets and distribution type for the units are 
left blank, The failure and repair time distributions will be determined 
from the histograms of Level 2, Note that units 16 through 18 are all 
Identical, so all the failure distributions in figure 3,T>,8 will be the same. 
Similarly, the repair distributions will also be the same. 
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SECTION 4 

PREPARATION OF GRASP INPUT DATA 

This section will present complete Information on the preparation of 
input data cards for GRASP. In addition. Input data decks for the examples 
In Section 3 will be presented. Output for these examples will also be 
presented. 

Input to GRASP is very flexible and has a number of options and special 
features that make it attractive for reliability analysis. Before the input 
card descriptions can be readily understood, however, it is ef.sent1al that 
the user have knowledge of the control language and understand the concept 
of a subsystem. 

4.1 The GRASP Program Control Language 

GRASP input is segmented by the control language Into independent 
functions. The control language consists of words called "Keywords" that 
are five letters or less in length (only the first four characters are 
si gni f 1 cant , however ) . Keywords are punched on data cards left~3ust1fied 
in columns one through five and are used to command GRASP to take a 
particular action. Allowable Keywords are given below with a brief 
explanation of each, 

NEW - read a complete GRASP network 

RUN - run the simulation of the network currently 

residing in memory and produce all appropraite 
output 

STOP - terminate program execution 

HIST - read an empirical distribution from cards 

PUNCH punch a histogram from the just ended simulation 
in a format suitable to be read by the HIST 
keyword 
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SAVE - save a histogram from the just ended simulation 
as an empirical distribution to be used in a 
subsequent simulation 

EDIT - enter the EDIT mode, where chnages can be made 
to the existing network 

The NEW and HUST Keywords direct GRASP to read data cards. These 
data cards are placed immediately after the Keyword card and are identified 
by the Keyword which causes them to be read. For example, there are six 
data card types which are read after a NEW Keyword is encountered. These 
card types are identified as NEW-1, NEW-2, and so on to NEW-6. Similarly, 
the three HIST type data cards are HIST-1, HIST-2, HIST-3. 

When in the EDIT mode, another group of command words called "Type 
Words" is available to specify the information to be edited. Type words 
are punched exactly like Keywords. The allowable Type words are given 


below: 


DNE 

- edit the information on data card NEW- 

NDDE 

- edit nodes in the exist ing network 
(data card type NEW-2) 

FARM 

- edit Parameter Sets (data card type 
NEW- 3) 

ARCS 

- edit arcs in the existing network 
(data card type NEW-4) 

CNODE 

- edit master C-node parameters 
(data card type NEW-6) 


detailed descriptions of all data card types will be given in Section 4,4. 
First, however, a preliminary example of a deck set up will be useful. 

Figure 4.1.1 contains two examples of typical data decks. Figure 4.1.1 (a) 
is a typical example of a deck set up which will read one network, simulate 
It, and stop. The NEW Keyword causes the immediate following NEW data cards 


to be read. These data cards completely describe a GRASP network. The 
RUN command causes the previously read network to be simulated and all out- 
put to be produced. STOP terminates execution. 

Figure 4.1.1 (b) presents a more complex example. As before, the 
NEW card causes a complete network to be read. Presumably, the network 
requires discrete distributions, because an HIST Keyword Immediately follows 
the NEW data cards, The HIST Keyword causes discrete distributions to be 
read from the HIST data cards. At this point the network Is simulated by the 
RUN card. 

After the simulation is complete, the user wants to modify the network, 
perhaps to test the effect of changing some of the distribution types and 
parameter sets. The EDIT Keyword puts GRASP Into the Edit mode so It 1s 
ready to accept changes. 

The PARM Type word Instructs GRASP to read data cards of type NEW-3 
which describe parameter sets. In this way, new parameter sets may be 
created or old ones changed by storing new Information In them. When this 
operation Is completed, the ARCS card causes type NEW-4 data cards to be 
read. These describe arcs In the network. Finally, the RUN card causes 
the modified network to be simulated. "PUNCH 6 AS 1" causes the time 
histogram at node 6 to be punched as discrete distribution number 1. 

The next NEW card causes a completely different network to be read, 

RUN and STOP simulate it and terminate. 

These simple examples serve to illustrate the use and power of the 
control language. The language obviously permits multiple simulations 
to test the sensitivity of the solution to different parameters In the sys- 
tem. As will be seen In Section C, the language also permits the analysis 


of a decomposed network (such as that given In Section 3*7) 1n a single' 
program execution. 


Ca) 

NEW. 

\ NEW-1 thru NEW-6 


RUN^ 

STOP 


(b) 

NEW 


HIST. 
- I 

miai ^ 


^ NEW-1 thru NEW-6 


HIST-1 thru HIST-3 


RUN 
EDIT 
PARM^ 

|nEW-3 
ARCS^ 

|nEW-4 
RUN ^ 

PUNCH 6 AS 1 
NEW 


NEW-1 thru NEW-6 


RUN 

STOP 


Figure 4.1.1 Examples of Data Deck Set-ups 

Using the GRASP Control Language 


4.2 Subsystem Duplication 

Reliability networks often have groups of repeated 

a number of times. For example* in Figure 3.7. t,, the Level 3(a) Block Diagram 
is such a grouping. It is repeated Mce in the level 2 diagram as units 


12 and 13. It Is reasonable to consider such groupings as subsystems, 

For the purpose of QRASP Input, however, the term "subsystem" has a 
more specific meaning. A subsystem In GRASP refers to the structure of the 
GRASP Network and not to the GRASP Block Diagram. Consider Figure 3.8.7, the 
GRASP Network for level 2, Notice the groups Of nodes SSoSl and their 
associated arcs (not Including arcs that leave the group In this case, 
arcs 61-82 and 59-80). The structure of this entire group Is repeated twice 
more in nodes 62-70 and 71-79. For the purpose of GRASP, these arcs and nodes 
are called a "subsystem". By Identifying this group as a subsystem. It Is 
possible to Input only one copy of the group and let GRASP Internally generate 
all the other copies. 

The proper terminology Is as follows. A subsystem Is a collection Of 
nodes and arcs in a GRASP Network whose structure is repeated more than 
once. A subsystem node is a node in a subsystem. A subsystem arc is an arc 
which begins and ends 1n the same subsystem. Other arcs and nodes are 
non-subsystem arcs (even though one end of the arc may be in a subsystem) 
and non-subsystem nodes . There may be more than one subsystem type in a 
network. For example, nodes 53-61, 62-70, and 71-79 all belong to the same 
subsystem type. If there were other repeated groupings In the network, they 
would be other subsystem types. 

Node numbering must be handled in a special way when using subsystems. 
Normally there are no restrictions on node numbering (except that each 
node number be unique and be greater than one and less than or equal to the 
maximum established by array sizes internal to GRASP). However, when generating 
subsystems, the nodes within and between copies of the subsystem must be 
consecutive. For example, in Figure 3.3.7 the nodes in the subsystem are 
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numbered 53 through 61. These nodes and arcs will be Input on data cards, 
GRASP will generate the other two copies, and it will generate node numbers 
consecutively starting with 62, 

The Implication for the user Is that when the GRASP Network is drawn 
the subsystems must be Identified before the nodes are numbered. Other- 
wise there Is a possibility of haying GRASP generate a node number that is 
also used elsewhere. 

Finally, note that all copies of a subsystem need not be identical in 
their parameters. Only the structure (arc and node configuration) need he 
the same. Again looking at Figure 3.8.7, the failure dlstrlhutlons on 
arcs 53-S4 and 62-63 will be different. Procedural ly, GRASP reads the first 
copy of the subsystem. Then It generates the required number of copies. 
Finally, GRASP will accept changes to individual nodes (N1 and N2 for example) 
and arcs in the generated copies. 

Complete information on subsystem generation Is contained In Section 

4.4. 

4.3 Parameter Sets. Distribution Types and Random Deviates 

The available probability distributions In GRASP were given in Section 
2. The sampling procedure used by GRASP Is a two step process. GRASP first 
examines the arc to determine the distribution type. Then It uses the para- 
meters stored in the parameter set to generate a random variate from the 
specified Distribution Type that has those parameters. For convenience, the 
Distribution Types and their associated code numbers are listed again in 
Table 4.3.1. The information needed In the parameter sets is given in Table 


Table 4.3.1 Distribution Types 


Code 

Distribution Type Modify Parameter Set 

1 

Constant 


2 

Normal 


3 

Uniform 


4 

Erlang-K 


5 

Lognormal 

YES 

6 

Poisson 


7 

Beta 

YES 

8 

Gamma 

YES 

9 

Beta fitted to three 
values as in PERT 

YES 

10 

Constant equal to parameter 
set number divided 
by Input constant 


11 

Triangular 

YES 

12 

Wei bull 

YES 

13 

Empirical 





Table 4.3.2 Parameter Set Specification 


Distribution Type 
and Number 

Field 2 

Field 3 

Field 4 

Field 5 

1 . 

Constant 

Constant 

NU 

NU 

NU 


2 . 

Normal 

mean 

min 

max 

St. 

dev. 

3. 

Uniform 

NU 

min 

mix 

NU 


4. 

Erlang-K 

mean/K 

fiJln 

max 

K 


5. 

Lognormal* 

mean 

min 

max 

St. 

dev. 

6. 

Poisson 

X 

min 

max 

NU 


7. 

Beta* 

mean 

min 

mix 

St. 

dev. 

8. 

Gamma* 

mean 

min 

max 

st. 

dev. 

9. 

Beta (PERT)* 

most likely 

optimistic - 

pessimistic 

NU 


10. 

Constant 


Not applicable 




n. 

Triangular* 

mode 

min 

max 

NU 


12. 

Wei bull* 

A 

mi n 

max 

B 


13. 

Empirical 


Not applicable 





* - Indicates parameter set Is modified 
NU - Not Used 
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Parameter Set Information Is specified and used as follows. A 
Parameter Set Is a vector of at most four numbers that are entered In 
fields 2 through 5 on a data card (field 1 Is the Parameter Set number). 

Table 4,3,2 specifies the contents of the Parameter Set for each Distribu- 
tion Type, For example, from Table 4.3.2, It can be seen that the para- 
meter set for normal distributions consists of the mean value, user determined 
minimum and maximum values, and the standard deviation of the distribution. 

As another example, the parameters for the Erlang-k distribution are the mean 
divided by the parameter k, the min and max, and k. Note with k ■ 1, a 
negative exponential distribution results. 

Most distributions have a minimum and maximum associated with them. 

When these distributions are sampled, If the variate obtained Is less than 
the min, the min Is used. If It Is greater than the max, the max Is used; 
and If It Is between the min and max, then the variate Itself Is used. 

Hence, the distributions actually sampled have an Increased probability mass 
at their minimum and maximum values. 

A few comments need to be made before leaving this subject, As 
explained In Section 2, Distribution Types TO (constant) and 13 (empirical) 
do not use Parameter Sets. 

The parameters for the Poisson distribution consist of the parameter, X, 
a minimum value, n^, and a maximum value, n^. No values will be sampled 
outside the mln-max bounds. However, the distribution sampled Is not the 
usual Poisson unless n^ * 0, It is a "shifted" Poisson. If n Is an 
Integer such that n^ < n 1 n^, then the probability of n Is given by 


In other words, the distribution has been shifted n^ units to the 
right. 

Finally, the parameters for the Wei bull distribution are taken from the 
equation for the density function. 

f(t) * exp(-At®) 

In both Tables 4,3,1 and 4,3.2 some distributions are specified as 
modifying their parameter sets, This 1 nidi cates that GRASP Initially 
changes the values that are Input by the user to a form that permits faster 
generation of variates. The Imnmdlate implication Is that the sa«\e Para- 
meter Set cannot be used to generate variates say, both a Gamma and a 
Normal distribution even though both distributions have Identical parameters. 
This Is so because the 6apa will cause the Input values to be changed, When 
variates are called for from the Normal distribution, Incorrect parameters 
will be used. It Is necessary to use a different Da* an^eter set for each 
different distribution, even If the parameters have the same values , 

It is not necessary, however, to use a different Parameter Set for each 
arc. If two arcs have the same distribution, they may use the same parameter 
set even If that Olstrlbutlon Type modifies Its parameters. 

4.4 Network Data Cards 

4.4.1 Main Cards s NEW-1 to NEW-6 

The NEW Data Cards are used to eompletely describe a GRASP Network. 

A NEW Keyword card must Immediately precede these cards. The NEW data 
cards must be presented to the program In the order in which they are 
described (Table 4.4,1). It will be noted that type NEW-E cards have A, B, 
and C subtypes and type NEW-4 cards have A and B subtypes which refer to 
subsystems. NEW Data Cards with suffixes A, B, and C are used only during 




I# 

subsystem generation, never durlno E’ulT operations. 

On first reading of Table 4.4.1, it is recommended that all sections 
pertaining to data cerds with A, B, or C suffixes be skipped. These cards 
are concerned only with subsystems generation. Once the data cards for 
inputting a basic network without subsystems Is understood, the Table can be 
reread to learn subsystem procedures. In this second reading, it will be 
helpful to refer to Table 4.4.2. An example data deck with subsystems will 
be presented when the Level 2 (Figure 3.8,7) data Input Is described. 



Table 4.4*1 Type NEW Data Cards 


iPU 


The symbol * next to a field number Indicates that the corresponding variable 
may not be chan 9 ed during the EDIT mode. 

I, Data Cards NEW-1; Network Description 

Format Variable Description 

20A4 NAME 


Field Col. 

Card 1’: 

1 1-80 


Card 2: 



1 

1-3 

13 

NPRT 

if 

2 

4-6 

13 

NSNK 

if 

3 

7-9 

13 

NSTS 

if 

4 

10-12 

13 

MODI 


5 

13-15 

13 

IGRF 

it 

6 

16-18 

13 

NCND 

it 

7 

19-21 

13 

NCTS 


8 

22-24 

13 

NSBS 


9 

25-27 

13 

IDMP 


3: 

1 

1-10 

110 

ISED 

2 

11-20 

110 

NRNS 

3 

21-30 

MO 

NSTR 

4 

31-40 

no 

NETR 

5 

41-50 

FIO.O 

TSTR 

6 

51-60 

FIO.O 

TETR 

7 

61-70 

FIO.O 

SCAL 


Any comment or Information about the 
simulation model. 

■ I for printing the Input, 0 otherwise. 

Number of sink nodes. 

Number of statistics nodes (including all 
stat., sink and accum. types). 

*1 1 if modifications exist, 0 otherwise. 

» 1 if histograms are to be plotted, 

0 otherwise. 

Number of C-nodes. 

Number of count types. 

Number of subsystem types. 

0 - no dump 

1 - dump files before execution 

2 - dump files after execution 

3 - dump files before and after execution 

Starting seed for random number generation. 

Number of simulation runs. 

Run number for beginning of tracing. 

Run number for end of tracing. 

Time for beginning of tracing. 

Time for end of tracing. 

Scale factor for distribution type 10, 
(default is 1,0) 


Table 4.4,1 (continued) 


M. Data Card NEW-2; Description of Nodes (nonsubsvstem nodes) 

One card is required for each nonsubsystem node of the network. 


Field 

Col umn 

Format 

Variable 

Description 

1* 

U3 

13 

NODE 

The unique node number of 

this NODE (#1 is nof allowed) 

2* 

4-6 

13 

INOUT 

Special characteristics of 
the node. Codes for these 
special characteri sti cs are: 

1 Source node 

2 Sink node 

3 Node for which statisti cs 

are collected 

4 Mark node activities 

3 

7-9 

13 

MRELl 

The number of activities to 
release the node for the 
first time. Default is 
1 (one) . 

4 

10-12 

13 

MREL2 

The number of activities 

requi red to release the node 
after the first time. 

Default = 1 . 

5* 

13 

A1 

PTOPT 

Output characteristics of 
the nodes. P for proba- 
bilistic; D for determin- 
istic, if left blank, D 
will be assumed 

6* 

14 

A1 

PRMV 

If the events that have been 


scheduled to end on this 
node are to be halted (can- 
celled) when this node is 
released, an "H" should be 
put in this field. If all 
different activities are re- 
quired to release this node, 
an "A" is put in this field. 

A "U" indicates that both of 
the above conditions are 
desired. Otherwise, leave 
blank 

Field 7-11 are required for statistic or sink nodes only (2 or 3 in Field 2) 


Table 4.4.1 (continued) 


Field Column Format Variable 


Descriptton 


7 


8 


9* 


15-20 F6,2 XLL 


21-26 F6.2 WIDH 


27 A1 MSINK 


lower limit of the 
second cell for the hisi- 
tograms to be obtained for 
this node. The first cell 
of the histogram will con- 
tain the number of times 
the activity was completed 
in less than the value given 
in this field. 

The width of each cell of the 
histogram. Each histogram 
contains 32 cells. If 
WIDH * 0, no histogram will 
be maintained. If WIDH is 
negative, GRASP will auto- 
matically scale the histogram 
(XLL will be ignored), 

Statistical quantities to 
be collected: 

F - Time of fi rst release 
of the node 

A - Time of £11, releases 
of the node 

B - Time between releases 
of the node 

I - Time interval required 

between 2 node releases 
D - Time delay from first 
activity completion 
until the node is 
released 

C - C-node, like delay, but 
keeps an accumulated 
total of all time 
activated. 

MRELP and MREL2 
(Fields 3 and 4) must 
be equal to 2; iNOUT 
(Field 2) must be 3 


10 

28-37 

FI 0,4 

XLC 

Same as Field 7 but for cost 
histograms 

11 

38-47 

FI 0,4 

WIDC 

Same as Field 8 but for cost 
histograms 




Table 4.4,1 (continued) 


Field Column Format Variable Description 

12* 48*«50 13 NUNOD Not used for nonsubsystem 

nodes (should be left 
blank for Card NEW-2) 

The last card of this type should be blank or must have 
a zero In Field 1. 

1 1 A. Data Card New -2Ai Subsystem Type Information 

Required only If there are subsystems (Field 17, Data Card* NEW-l 
number of subsystem types). In order to Input the node informa- 
tion for a subsystem type, one data card of type NEW-2A is 
required. This Is followed by a stream of NEW-2B cards, one for 
each node In the subsystem. Immediately after the NEW-2B cards Is a 
stream of NEW-2C cards , one for each node In any copy of the sub- 
system type which has characteristics different from the original 
copy. If there are more than one subsystem type, the sequence of 
NEW-2At 2B, and 2C cards is repeated for each subsystem type. 


See Figure 4.1.1 

• 



Field 

Column 

Format 

Variable 

Description 

1 

1-5 

15 

NNSUB 

Number of nodes in first 
subsystem type 

2 

6-10 

15 

NSSP 

Number of times this 
particular subsystem 
type is to appear in 
network (include the 
original read- in plus 
generated ones) 

3 

11-15 

15 

KACTS 

Number of arcs In this 
particular subsystem 
type 


No 'blank' cards follow, just NEW - 2B cards. 


IIB. Data Card NEW-2B; Subsystem Node Description 

Not required unless preceded by a NEW-2A card. The user reads in 
cards describing the nodes of the subsystem type, The program 
generates the other copies of the subsystem type. One card Is 
read in for every node of the subsystem. Format is very similar to 
Data Card NEW-2. 




Table 4*4.1 (continued) 


Field Column Format Variable Description 

T-11 1*47 same as for Data Card Type NEW-2 

12 48-50 13 NUNOD Number of the next copy of this 

subsystem type for which 
this node will have different 
characteristics than are 
contained on this card. 

The last card of this type will have a zero in Field 1 or be a 
blank (signifies end of particular subsystem's nodes characteriza- 
tion). 

lie. Data Card NEW-2C; Variant Subsystem Node Characterization 

Not required unless some NUNOD (Field 12, NEW-2B) Is > 2. This 
card contains the different node characteristics for a subsystem 
node. 

Field Column Format Variable Description 

1 1-3 13 - Not used 

2-12 4-50 same as NEW-2B 

Note ; These give changes in node characteristics of a designated 
node in a designated subsystem type. One NEW-2C card must be 
present for each node in any copy of the subsystem which has 
different characteristics than those described on the NEW-2B cards. 
Care must be taken to place them in the correct order. All changes 
to a particular copy are read before any changes to a subsequent 
copy. The order of different nodes is the same as the order of 
NEW-2B cards. No extra cards follow these except for another 
of NEW-2A or NEW-3 (which follow immediately). 

MULTIPLE SUBSYSTEMS 

In th® where muTtlple subsystem types occur, these may be 
Input by simply repeating a new series of NEW-2A, 2B and 2C cards 
for each desired subsys^t^^^^^ 

Data Card HEW- 3 i Parameter Sets 

The paraieteri associated with the distribution of the time to 
perform^'each Icttvt#. 


Tabu 4.4.1 (continued) 


Field 

Column 

Format 

Variable 

DescriDtion 

1 

1-3 

13 

IPARS 

Parameter set number 

2 

4-13 

F10.4 

PRAH(l) 


3 

14-23 

F10.4 

PRAM(2) 

Parameter values (as 
defined by distribution 
type) See Table 4.3.2 p. 112 

4 

24-33 

F10.4 

PRAM(3) 


5 

34-43 

FI 0.4 

PRAM(4) 



The last card of this type must be blank or have a zero in 
Field!. 

Data Card NEW-4; Arc Descriptions (non-subsvstem activities) 


One card for each 

non-subsystem arc 


1* 

1-8 

F8.3 

ATRIB(l) 

• 

Probability this arc is 
taken. Default is 1.0. 

2’^ 

9-11 

13 

JQ 

Start node 

3* 

12-14 

13 

JTRIB(l) 

End node 

4 

15-17 

13 

JTRIB(2) 

Parameter set number 

5 

18-20 

13 

JTRIB(3) 

Distribution type (default 
is 10) 

6 

21-23 

13 

aTRIB(4) 

Count type 

7 

24-26 

13 

JTRIB(5) 

Activity number 

8 

27-35 

F9.2 

ATRIB(3) 

Set up cost 

9 

36-44 

F9.2 

ATRIB(4) 

Variable cost 

10 

45-47 

13 

NUACT 

Not used in non-subsystem 
activities 

lU 

48-50 

13 

0TRIB(6) 

C-node associated with 


accumulating this ac' 
tivityU cost. 


The last card of this type must be a blank or have a zero in 
Field 2. 
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Table 4.4.1 (continued) 


IVA, Data Card NEW-4A; Subsystem Arc Description 

Required only If there are subsystems (Field 17, Data Card NEWrl^l), 
One NEW-4A card is required for each subsystem acttvlty in the 
first copy of the subsystem, The start and end node numbers must 
correspond to the node numbers on the previously read NEM«2B cards. 
Activity information for the subsystem types is read in the same 
order as the node information was, In other words, the first 
group of NEW-2A, 2B, and 2C cards must correspond to the first 
group of NEW-4A and 4B cards, and so on, 

Field Column Format Variable Description 

1- 9 1-44 same as type NEW-4 

10 45-47 13 NUACT Number of the next copy of 

this subsystem type for 
which this arc will have 
different parameters than 
are contained on this card. 

The last card of this set will have a zero in Field 2 or be a blank. 

IVB. Data Card NEW-4B; Variant Subsystem Arc Characterization 

Required only if same NUACT (field IQ, Data Card NEW-4A) is 
^ 2. This card will give the different activity characteristics 
of a subsystem arc. 

Field Col umn Format Variable Description 

1 same as 4 and 4A 

2- 3 not used 

4-10 same as 4 and 4A 

Note ; These give changes in activity characterization between two 
subsystem copies. Only the characterization, not the end or start 
node can be changed. One NEW-4B card must be presented for each arc 
in any copy of the subsystem which has different characteristics 
than those described on the NEW-4A cards. Care must be taken to 
get them in correct order. All changes to a particular subsystem 
copy are read before any changes to another copy. The order that 
arcs are read is the same as the order of NEW-4A cards (See 
Figure 4.4.1). No blank cards are inserted. Additional Data 
Card NEW-4A's or NEW-5‘s follow immediately. 






Table 4.4.1 (continued) 


Data Card NEW-5; Node Modification 

Required only if modifications exist In the network (i.e., MODI greater 
than zero - Field 4, Data Card NEW-1-2). One card for each activity 
number that triggers modlflcatlon(s). If many different modifications 
of nodes result from completing a given activity, a continuation card 
may be required. Up to 12 replacements can fit in one card. 


Field 

Column 

Format 

Variable 

Description 

i* 

1-3 

13 

NACTN 

An activity number that triggers a 
replacement (a negative number 
will Indicate continuation of 
previous cards information). 

2* 

4-6 

13 

NABYA(-) 

The number of a node to be replaced 
if the activity number given in 
Field 1 is completed. 

3* 

7-9 

13 

NABYA(-) 

The number of a node to be i nserted 
in the network in place of the 
node in Field 2 when the activity 
In. Field 1 is completed. 

4-25 

10-75 

213 

NABYA(-) 

Fields 2 and 3 are repeated If 
the activity in Field 1 affects 
multiple replacements. 


Fields 2 and 3 represent a replacement, 4 and 5 represent the next re- 
placement and so on. The last card of this type must have a zero in 
Field 1 or be a blank card. 


Data Card NEW-6; Master C-Node Information 


Only needed if the number of C-nodes (NCND, Field 6, Data Card NEW-1-2) 

is greater than zero. Only one card of this type is included, and must 

be present if C-nodes exist in system even if T2 and C2 criteria will 

not be active. (A discussion of T2 and C2 criteria Is given in Section III D). 


Field Column Format Variable 


Description 


1 1-10 F10.4 T2 


T2 value for C-node totals. Zero 
or blank indicates no T2 values. 
-1.0 indicates T2 = 0.0 


2 11-20 F10.4 C2 


cr value for C-node totals. 

Zero or blank Indicates no C2 
value. -1.0 indicates C2 = 0.0 


Table 4.4.1 (continued) 


Field 

Column 

Format 

Variable 

Description 

3 

21-26 

F6.2 

XLTl 

Lower limit of second cell of 
Master C-node time histogram 

4 

27-32 

F6.2 

wni 

Width of cell for Master 
C’^node time histograms 

5 

33-42 

F10.4 

XLCl 

Lower limit of second cell 
of Master C-node cost 
histograms 

6 

43-52 

F10.4 

WTCl 

Width of cell for Master 
C-node cost histograms 

7 

53-55 

12 

ITFLG 

0- T2 criterion will not 

terminate simulation run 

1- T2 criterion will terminate 

simulation run 

8 

56-57 

12 

ICFLG 

0-C2 criterion will not 
terminate simulation run 
V-C2 criterion will terminate 
simulation run 
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Tftble 4.4«2 Arrangenient of Input Data Cards 


Repeat NEW-4A and 4B for other 
subsystem types. 

/nbmb ■ 

/neW-4A 




used for subsystems 
generation 


NEW-4 


NEW-3 

/Repeat NEW-2A through NEW-2C 
for other subsystem types. 

/neW-2C 


used for sub- 
systems generation 




i 

i 

I 



A separai^S'S^ S9t of data cards fs required when reading empirical ^ 

distributions. These cards Immediately follow the HIST Keyword and are \ 

designated as types HIST-1 to HIST-3. Details are contained in Table 4,4.3. \ 


GRASP uses the input of empirical data, via histograms, in two ways. 

The usual application Is to define a discrete distribution when the random 
variable may have up to 32 discrete values, each having a probability 
associated with 1t such that the sum of the probabilities Is one. 

The second application is to define a continuous distribution where 
the probability density function is described In a stair-step fashion with 
up to 32 steps (or cells) comprising a conventional histooram. In this case, 
the area under the density function must equal one. The cells must be of 
uniform width, and the variable values read in to define the histogram apply 
to the lower limit of each cell. GRASP will sample uniformly within each 
step, so the continuous random variable can have any value within the range 
of the histogram. The usefulness of this application is that it pennits 
a continuous random variable that results from a lower level simulation to 
be approximated with a histogram and then used as input to a succeeding, 
higher level simulation. Without this capability it would always be necessary 
to determine or estimate the analytical expression for the distribution, that 
is, identify the distribution. 









ORIGINAL PAGE IS 
OF POOR QUALITY 


Table 4.4,3 HIST Data Cards 


I, 

Data Card HIST-1 

Parameters 




Field 

Column 

Format 

Variable 

Description 


1 

1-5 

15 

KHIS 

Number of the empirical 
distribution. KHIS £ 10. 


2 

6-10 

15 

NCELS 

Number of cells in the 
distributions. 

NCELS < 32 


3 

11-20 

FI 0.0 


Width of Cells. 0-one value 
per cell. >0-uniform 
sampling within cells 

II. 

Data Card HIST 2 Probabilities 



Field 

Column 

Format 

Variable 

Description 


1 

1-5 

F5.4 

PR0B(*,JQ) Probability (not cumulative) 

■ of first cell. Probabilities 
must sum to one. 


2-16 

6-80 

F5.4 

Same 

Repeat of Field 1 for each 
cell. There must be NCELS 
entries. Use as many data 
cards of this Type as 
necessary. 

III. 

Data Card 

HIST-3 Cell Values 




Field 

Column 

. 1 . ay ■■■ 

Format 

Variable 

Description 


1 

1-10 

E10.4 

VAL(*,JQ) value for lower limit 
of first cell . 


2-8 

11-80 

E10.4 

Same 

Repeat of Field 1 for each 


cel 1 . There must be NCELS 
entries. Use as many data 
cards of this Type as 
necessary. 


Repeat HIST-1 through HIST-3 for additional empirical distributions. 
The last card in this group must be blank {i.e., have a zero in 
Field 2 of HIST-1). 
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4.4.3 SAVE and PUNCH Options 

The SAVE and PUNCH keywords provide a method by which the histogram 
produced by one GRASP simulation can be converted to an empirical distribu- 
tion and used in another network. For example, in Figure 3.8.2, the outputs 
for Level 3(a) are the means, variances, and histograms for failure times and 
for repair times. The most rigorous procedure is to do goodness-of-fit tests 
on these histograms to identify the distributions before using the results 
in Level 2. However, as an alternative, or whenever there is not a good fit 
to a recognizable distribution function, the histograms can be used as 
approximations to the exact distributions. Examples of this usage will be 
shown for the example in Section 3,8, . 

The PUNCH keyword will punch the specified output histogram in a 
format suitable for reading by the HIST Keyword in a subsequent simulation. 

If it is desired to simulate both networks successively in the same computer 
run, the SAVE Keyword may be used. SAVE will cause the specified histogram 
to be converted to a GRASP empirical distribution and stored in the appropriate 
arrays for later sampling. Neither SAVE nor PUNCH destroy the histogram, so 
it can be both SAVEed and PUNCHed. However, whenever a RUN card is 
encountered all statistical arrays are cleared, so any histograms that have 
not been SAVEed or PUNCHed will be destroyed. 

When histtiirams are collected by GRASP, the first and last cells 
theoretically have infinite width. In other words, the first cell contains 
all observations from - ® to the upper value of the first cell. Similarly, 
the last cell contains all values from the lower limit of the last cell to 
+ 00 . When SAVE or PUNCH is invoked, these cells are truncated to the same 
width as all other cells in the histogram. This obviously causes a 
limitation on the range of the random variable which can be sampled from 
the resulting empirical distribution. Where possible, histograms should be 
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scaled (by appropriate selection of cell widths) so all observations fall 
within the 30 Inside cells. Self scaling of the hlst^sr ^'is will Insure this 
situation. 

Finally, note that time histograms may be SAVEed or PUNCHed. No cost 
histograms can be processed by these commands. 

Table 4.4.4 has the format for SAVE and PUNCH. 



Table 4.4.4 

Format for SAVE and PUNCH Keywords 

Field 

Column 

Format 

Variable 

Description 

1 

1-4 

A4 

KUORD 

SAVE or PUNC 

2 

5-8 

14 

NOD 

Node number for time 
histogram to be saved 
, or punched 

3 

9-12 

14 

KHIS 

Number to be assigned to 


the empirical distribu- 
tion saved or punched. 
JQ ■< MO (as on HIST-1, 
Field 1). 

4.4.4 EDIT Optio n 

Editing Type words will be discussed briefly. More complete examples 
and discussion will be Included in the next section. GRASP must be put 
In the Edit mode by an EDIT Keyword before any Type words are used. Any 
of the fields not marked with an asterisk (*) in Table 4.4.1 may be changed. 
All fields that are not changed, and in particular those marked with 
must have the same Information as the most recently read card of that type. 
This Is true of all of the Type words . Information which is not changed 


must nevertheless be punched on the card. Note: Editing of the asterisked 


fields will not generate an immediate error message but will cause erroneous 
results. 

If the asterisked fields are examined, it will be seen that only 
parametric editing is permitted. In other words, the strucutre (i.e., node 
and arc configuration) may not be changed. 

Also, no data card types with suffixes A> B, or C are applicable during 
EDITS, Arcs and nodes in subsystems are referred to by their node numbers 
just as are non- subsystem arcs and nodes. 

ONE- ^ The type word ONE causes GRASP to read a type NEW-1 data card. ' 

NODE - Causas a stream of Data Card Type NEW-2 to be read. Cards of 

this Type will be read until a blank of zero is encountered in Field 1. 

FARM - Causes a stream of NEW-3 data cards to be read (parameter sets). 

Existing parameter sets can be modified and additional parameter sets can be 

created. NEW-3 cards are read until a zero or blank is encountered in 
Field 1. 

ARCS - Causes reading of Type NEW-4 cards. At this point, recall that 
some parameter sets are modified by GRASP. After reading a network, GRASP 
"forgets" which parameter sets have been modified. Therefore, reference 
must be made to Table 4.3.1 when editing distribution types or parameter 
sets. 

The following considerations are important! 

1. If a FARM card has generated or changed a parameter set that 
applies to a distribution of a type that modifies its parameters, 
then an ARCS card MUST appear, and one card with that distribution 
type must be read (even though no changes are made on it). This 
will cause the proper modification of that parameter set. 

2. If a distribution type on an edited NEW-4 card is changed to 
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one which' modifies its parameter set, the parameter set will be 
modified when the card, is read. If it is not desired that the 
parameter set be modified, then the parameter set number must be read 
as a negative number. (This would be desired if the parameter set had 
been modified in an earlier simulation of the same computer run, by 
virtue of the distribution appearing elsewhere in the network). 

An additional consideration in modifying ARCS is that the NEW-4 card may 
not uniquely describe an arc in the network. See Figures 3.1.3, 3.1.6 and 
3.1.8 for example. 

The arcs between Nodes 2 and 3 can all be identical, so the NEW-4 Data 
Cards for these arcs are also identical. GRASP ranks the parallel arcs 
between any two nodes, however. Therefore, it is possible to uniquely 
specify which arc is to be changed, 

Given a start and an end node, the arcs between these nodes are ranked 
in decreasing order of their probabilities (Field 1, NEW-4 cards). If there 
are ties, then they are ranked by the order in which they were originally 
read. Hence, the arc of highest probability is ranked 1, the next highest 
2, etc. If there are ties, the first read is ranked before the second 
read, etc. To uniquely specify one of several parallel arcs, an additional 
variable must be included on NEW-4 cards when Editing ARCS. Table 4.4.5 
describes the format. 

CNOD - Permits changing of all fields on the NEW-6 data card, 


Table 4. 4,5 Addition to Data Card Type 
NEW-4 for Editing Arcs 


Filed 

1-n 

12 


Column Format Variable 


12 


Description 

Same as NEW-4 

Rank of the arc (Zero 
will be taken as one) 


1-50 

79-80 


IRNK 


Ibb 


original page is 

OF POOR QUALITY 

4.5 Examples of Data Input 

4.5H Two Units in ParalTel; The Example In Figure 3.3.5 


Figure 4.5.1 shows the input data for a system with two units in parallel, 
previously discussed as the network in Figure 3.3.5. The first and the last 
lines are artificial, numbered 0.1 and 36.1. They are added in order to easily 
Ideate the column numbers of the different fields. 

Line number 1 shows the keyword NEW, starting from column 1. This work 
begins every GRASP network. Several GRASP networks can be simulated in only 
one execution of the program. Refer to Figure 4.1.1 for the sequencing of tha 
data cards. Lines 2, 3, and 4 contain the NEW-1 cards. Line 2 contains CARD- 1 of NEW-1 ^ 
and has the title of the GRASP model. Line 3 contains CARD-2 and has the 
following Information: 


Field 1 

Col. 1-3 

NPRT = 

1 

print option 

Field 2 

Col. 4 t6 

NSNK = 

1 

number of sink nodes 

Field 3 

Col. 7-9 

NSTS = 

3 

number of statistic nodes 

Field 4 

Col. 10-12 

MODI = 

0 

no modifications 

Field 5 

Col. 13-15 

IGRF = 

1 

plot histograms 


Fields 6-9 are left blank, so the variables NCND (number of C-nodes), 

NCTS (number of count types), NSBS (number of subsystem types), and IDME 

(dumping of the files option) are equal to zero.- 

Line 4 contains card 3 of NEW-1 and has the following information: 

Field 1 Col. 1-10 ISED = 1113497 starting seed for random number 

generation. 

Field 2 Col. 11-20 NRNS = 1 number of simulation runs. 

Fields 3 - 7 are left blank so the remaining variables NSTR (run number for 
beginning of tracing), NETR (run number for end of tracing), TSTR (time for beginning 
of tracing), TETR ( time for end of tracing) and SCAL (scale factor for distribution 
<?aiial to their default values. 
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Lines nuntbered S to 12 descr'ibe the nodes of the network. B Indicates 
"Between" statistics will be colTected at nodes" 6 and 7, and the histograms 
will be automatically scaled by the program. 

Line number 13 indicates the end of the node description cards. Lines 
numbered 14 to 17 give the parameters of the distributions. Line number 14 
gives parameter set 1 and corresponds to an Erlang distribution with mean/K= 5.» 
minimum » 0, maximum = 100 and K » 2. Line 15 has the parameters A = .1» 
minimum = 0, maximum = 0 and B - 1.4* and this corresponds to distribution 
number 12 which is the Weibull distribution (see Table 4.3.2). Line 16 gives 
the parameter set for the repair distribution which is Erland-1 (exponential) 
with a mean equal to 0.5, a minimum equal to 0 and a maximum equal to 100. 

Line 17 gives the parameter set corresponding to distribution type 1 which 
is just a constant. Hence, only field 2 is used and it gives the value of 
that constant. This constant is used for stopping the simulation. 
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Figure 4.5.2 (a) Echo for NEW>1 and NEU-2 cards 
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Figure 4.5.Z (continued 

(b) Echo for NEW-3 cards 

(c) Echo for NEH-4 cards 


A description of the arcs stares at line 19. Each arc is completely 
described by one card. Since there is no probabilistic nodes in the network, 
the probability associated with each arc is 1. No cost data was requested. 

Line 34 indicates the end of the arc descritlon cards. The keywords RUN and 
STOP are self-explanatory. 

A complete output of this example is given in Figure 4.5.2. The output 
starts with ‘*an echo check of the data to help locate any data input 

errors. Part (a) of Figure 4.5.2 shows the output corresponding to the basic 
run information and the node description cards. Notice that limited informa- 
tion diagrams are also given. Figures describing the output are presented 
sequentially as they appear in an actual run. Parts (b) and (c) of Figure 
4.5.2 describe the parameters of the distributions, and each activity, 
respectively. The column headings are self-explanatory. The node summary in 
Figure 4.5.3 reveals that the mean time between repairs is 73.2 and the mean 
time between failures is 81.67. These quantities estimate the operating 
characteristics pictured below. 

Failure End of Failure End of 

repair repair 

I 1 1 1 

. Time between failures - - • •>{ | 

!<; --.-Time between repairs.-. ---•-’i.. >5 

Statistically, they are expected to be equal. Their difference is due to 
the fact that we have unequal numbers of observations for nodes 6 and 7, and 
the simulation time (500) was not long enough to reach exact solutions. This 
Is reflected in a large standard deviation for both results. The histograms 
in Figures 4.5,4 and 4,5.5 are very similar, but since only a few observations 
are generated , they don't give a complete picture of the actual distribution. 
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Figure 4.5.4 
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Figure 4.5.5 


4.5.2 Two Units in Series Example in Figure 3.4.2 

Data Input for Figure 3.4.2 is shown in Figure 4.5.6. A new feature of 
GRASP is demonstrated in this example; that is, the EDIT key. The example 
represents two identical units in series. Their life distribution is a log- 
normal with a mean equal' to 50, a minimum equal to 0, a maximum equal to 300 
and a standard deviation equal to 20. These parameters are specified in para- 
meter set number 1. Their repair distribution is exponential with mean equal to 
2 as specified in parameter set 2. After the network is simulated, the program 
'will read the keyword EDIT and cause the network to be modified. The next line 
read is line number 36. It has the keywork ONE and directs the program to re- 
define cards NEW-1. Line numbers 37-39 are the revised cards. They are identi- 
cal to lines 2-4 in most ©f the fields; only the random number seed, the trace 
and dump fields have been changed. The event trace' is now requested and the 
file dump is suppressed. The output for this example includes the usual echo 
check of the input data; node summary; the histograms for nodes 6 and 7; and a 
file status at the end of the run. The node summary appears in Figure 4.5.7. 

The mean time between the releases of node 7 is 22.64, and the mean time between 
the releases of node 6 is 23.45. These quantities estimate the same random varia- 
ble, which is the sum of the mean life time and the mean repair time. Other parts 
of the GRASP output are not included in this analysis. The RUN command at line 
43 causes the revised network to be simulated. The output from the edited net- 
work is not included here. The requested file dump after execution will be pre- 
sented later in section 5. A network can be edited more than once, and GRASP 
counts the number of times that a network is edited. The editing operation is 
cumulative. In other words, every time a part of the network is replaced by an 
edit operation, such a replacement is final , and subsequent edits operate on the 
revised network. 


I234S6789-1 23456789-- 1 234S67e9-l234S67a9-l234S8789-* 1 23456789«t234567a9-l23«56789- 
NEW 

two UNITS IN SERIES* 
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Figure 4.5.6 Data Input for Figure 3.4.2 



4.5.3 Data Input for the Standby System in Figure 3.5.5 

The data input for this example is shown in Figure 4.5.8, and is self- 
explanatory. Both units have exponential lifetimes. The first unit has its 
parameters in parameter set 1 in line 16. It has a mean lifetime equal to 4. 

The second unit has its parameters in parameter set 3, for both units are 
identically distributed (exponential) and share parameter set 3, with a mean 
time to repair equal to 2. Parameter set 4 is used in arc (10,11) for stopping 
the simulation. Nodes 8 and 9 collect statistics on the cycle time of the system 
(sum of the lifetime and repair time). As expected, these node summaries are 
nearly the same, as shown in Figure 4.5.9. The plotted histograms are practically 
identical. These are shown in Figures 4.5.10 arid 4.5.11. This output shows that 
the distribution of the cycle time has a relatively long tail with perhaps 
multiple modes. 
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Figure 4.5.8 Data input for Figure 3 
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Figure 4.5-9 Node Summary for the Networlc 
Example in Figure 3.5.5 
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Figure 4.5.11 



4,5.4 Data Input for the Example with Cost 

The data input for the case without maintenance is shown in Figure 4.5.12. 
The only thing new in this example is the cost analysis. This is indicated in 
lines 18 and 19. The computer results are shown in Figure 4.5.13. They show 
that the average downtime is equal to 8 hours and the corresponding average 
cost is $545.34. From this, the average cost per hour of downtime can be com- 
puted as 545.34/8 » $68.17. The cost indicated for node 7 is the average cost 
for three years and is equal to $8,430.89. The histogram for node 5 (Figure 
4.5.14) shows .how the downtimes are distributed. What probability distribution 
does that suggest? 

The data input for the case with preventive maintenance is shown in Figure 
4.5.15. Notice that the source seed for random number generation is used. This 
means that the pump operates under the same conditions as in the previous case 
and this will allow us to make meaningful comparisons. The computer results 
are shown In Figure 4.5.16. The mean down time in this case is estimated to 
be 3.17 hours - the corresponding average cost if $238.82. The average cost 
per hour is then 238.82/3.17 * $75,33. 
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Figure 4.5.12 
Data input for the case 
without maintenance. 
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Figure 4.5.14 
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The average cost for three years Is equal to $9,531.74. This figure Is 
higher than in the first case. In other words, it Is more expensive to operate 
the pump under the preventive maintenance policy. The histogram of the down- 
times is shown in Figure 4.5.17. They suggest very much an Erlang or Weibull 
distribution while in the previous case, the exponential distribution seems 
to be the first choice. Goodness of fit tests must be performed to confirm 
* this. Another interesting statistic to look at in comparing both models would 
be the total downtime. It Is not shown in the computer results but it can 
easily be computed. For the first case it is equal to : 


f. 


8.00778 X 1546/100 = 123.80 hours 


and for the second case It is equal to: 


3.16798 X 3989/100 = 126.37 hours- 
The results are summarized below. 


j 


policy 

average 

downtime 

average cost 
for a downtime 
period 

average total 
. downtime 

average 
total cost of 
downtime 

average cost 
per hour of 
downtime 

downtime 

distribution 

without 

maintenance 

8,01 hrs. 

$545.34 

123.80 hrs. 

$8430.89 

$68.17 

? ■ : 

1 . .• 

with 

maintenance 

. 

3.17 hrs. 

$238.82 

126.37 hrs. 

19531.74 

$75.33 

: ’ ’ . ■ ■ ■ 

? . 
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Figure 4.5.15 Data Input for the Case with 
Preventive Maintenance 
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Figure 4.5.16 Computer Results for the Case 
with Preventi ve Mai intenance 


PBEQ . PHEQ ma OF CELL 





Jli^U 


ORIGINAL PAGE IR 
OF POOR QUALITY 


» M H H H H H M H H H M H H H H H H H H H HI H H M H H H M M M M M M M 


» M 
> 




* H 

r 


o o u 


u u u 


ou u 


UUP 


PUP 


UP P 


PUP 


p p p 


u P U U p 


\ 

r^- 0 .. 


1 



I ^ ^ ^ Mi. ^ ^ ^ ^ ^ ^ ^ n YN N ri fS IN (N IN <N 

1 oOooooooooooooooooooooooooooooo 

^ «U (U M (4 M &3 M frt Ot ui PU M Ui Ul 4 i M Ut M »l faJ Ui Ui M Cit bl W Ul 

» un o »n o on o o o in o vn o »n o o trt o •• <?% 03 vo kp rn r-i o <7^ 

M <N r* o o ^ ir IN <P O' ^ o 05 in fN o r* iT O' »*• o :» 

I O' vo o :» c 3 Cl M 3 o n ^ m O' in ^ o .o 03 rj >o o o r> ^ ^ ^ ri r< 
*-<NiN<^min^£»mvnin.d*o*dr^r»'0o>-350'0'***-^*-^^«-‘r-»“*- 


ooooooooooooooooooooooooooooooo 


CO >45 n if i» CO IN •• 05 O' m IN O' in o r* 1 ^ o* .-f oj if o *n as o 
\o IN IN m rt o tr <0 r* X JO o o o •- 01 «n » o in >is o X or* cn O' o 

*“f^cocox®xx®x«xxo 305 0*<r*ir' O'O' O' o* o* o' o o* o* O' o> o» o 

• _• • « f « f t f t • t I 

ooooooooooooooooooo o ^ o O O O O O O O O O •“ 


IN 00 r» ST r* o m » r» O' r** o o r* r> >o r*5 TO so m ^ r'- ^ o X f-» >45 -^4 

XXOOOO^-OOOOOOOOOOOOOOQOOOOOOOOOO 

*- >n o o o o o P o o o o o o o o o o p o o o o p o o o o o o o o 

I • • I • f • • • t • f f f 9 f t • • « • • t f « • t • t • • • 

o o o o o O O O O P o o o o o o o o o o o p o o o o o o o o o o 


m »« IN flo *x p O' Q so « r** « m o' oo m m in n ^ ^ x lo cr in m x in x i m 
X ^ in fN ^ IN m •* »n IN m IN n* ^ IN IN in in ri n in in in in in in ri in in in rj i o? 
lo IN m » O' 

IN ■ 



Fibure 4.5.17 



This section will present the complete example given in Figure 3.8.2, 

The Level 3(a) and 3(b) systems will be simulated separately and their TBF 
and repair distributions determined. The PUNCH Keyword will be psed in the 
Level 3 simulations to punch the TBF and repair distributions. These empirical 
distributions will be used as input to Level 2 where the HIST Keywork will be 
utilized. The Level 1 and 2 simulations will be performed in one computer run 
by making use of the SAVE Keyword. Also, the data input for Levels 1 and 2 
will provide examples of subsystem generation. 

Figure 4.5.18 is the data input for Level 3(a). 

Another default value has been used on the NEW-2 cards (lines 5 to 32). 

The node type (column 13) specifies probabilistic or deterministic output. 

If this field is left blank, (as in Figure 4.5.18), GRASP will assume determin- 
istic output. 




Finally, the PUNCH Keywoy*ds lines 8B and 89 punch the TBF and repain 
distributions as empirical distributions 1 and 2, respectively » Recall from 
Figure 3.8»4 that node 26 collects the TBF distribution and node 27 collects 
the repair distribution* 

Node summaries and histograms for level 3(a) are shown in Figures 4,5*19, 
20, and 21* the node summaries reveal that the mean tim between failures 
for Level 3(a) Is 7.9 tim units (node 26) and the mean time to repair Is 
19.57 time units. 


The empirical distributions that are produced from these nodes can be 
derived from the histograms as follows. The cell probabilities are given in 
the “Relati ve frequency'* column. The lower limits of the cel Is are found in 
the “LOWER BOUND OF CELL“ column. The cell width can be found by subtracting 
two successive cell lower bounds, and the lower limit of the first cell 
(for empirical distribution purposes) is found by subtracting this cell width 
from the lower bound of the second cell* 

The data input, node summaries, and node histograms for Level 3(b) 
are shown in Figures 4.5.22, 23, 24,' and 25. The mean time between failures 
for Level 3(b) Is 8.635 time units, and the mean repair time is 0.2365, 

An additional default value has been used for Input to Level 3(b). 

The repair distribution for unit 6 Is. (negative) exponential (Erlang^l) 
with parameters in Paranmter Set 2* Normally ,.fwe would expect a “1,0“ 1n 
field 5 of line 31, Figure 4*5.22. This would Indicate that “1" 1n “Erlang-1“ 
However, when this field is blank* as In line 31, ORASP assumes Erlang-l, 
Hence, exponential distributions can be obtained by specifying Distribution 
Type 4 and using only the n»ean, minimum value, and maximum value in the Para« 
meter Set, 
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Figure 4.5.20 TBF Histogram for Level 3(a) 
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Figure 4.5.21 Repair Time Histogram for Level 3(a) 
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The data input for Levels 2 and 1 a're shown in Figure 4.5.26. Recall that 
both of these networks have been simulated during the same computer run. The 
information in this figure down to the second NEW card (line 111) is for Level 2. 

This network has been input using subsystems. Refer to Figure 3.8.7. Non-subsystem 
nodes in this network are nodes numbered 80 to 88. The other nodes form three copies 
of one subsystem type. Nodes 53 to 61 are the first copy. The others are nodes 
62; to 70 and 71 to 79. Notice that the subsystem nodes are numbered consecutively. 

Line numbers in the following discussion are those in Figure 4.5,26. Non- 
subsystem nodes are input first on NEW-2 cards (lines 5 to 14). Line 15 is the 
NEW-2A card for the subsystem. The three fields specify that there are nine nodes 
in the subsystem, three copies are desired, and there are 12 subsystem arcs in 
each copy. Since this is the first NEW-2A card encountered, the subsystem following 
this card will be designated "Subsystem Type 1". Lines 16-25 are NEW-2B cards that 

It 

describe the nodes in the first copy of the subsystem type, i.e., the copy with the 
lowest node numbers. 

Each copy of the subsystem is identical with respect to its nodes. Hence, 
fields 12 (columns 48-50) of the NEW-2B cards are all blank. The result is that 
three identical copies of the subsystem nodes will be generated. No NEW-2C cards 
will be read. Lines 26-28 are the parameter sets for units 10 and 11. Lines 0.1, 
40.1, 75.1, 75.2, 120.1 and 162.1 have been added so that column numbers can 
easily be identified. 

Lines 29 to 45 are NEW-4 cards for the non-subsystem arcs. Recall that 
these are arcs with at least one end at a non-subsystem node. Lines 46 to 58 
are NEW-4A cards for the subsystem arcs in the first copy of Subsystem Type 1. 

Note that the parameter on the arcs vary from copy to Gopy> however. For 
example, arc 53-54 (Figure 3.8.7) in copy 1 has time characteristic "(1, 13)" 
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Figure 4.5.24 TBF Histogram for Level 3(b) 
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Figure 4.5.25 Repair Histogram for Level 3(b) 
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and the corresponding arc in copy 2 (arc 62-63) has "(3, 13)". Arc 53-54 

is given on line 46. Note that field 10 (columns 45-47) is "2". This 

// 

indicates that copy 2 of this subsystem has different parameters for this 
arc. Lines 45, 50, and 51 have similar entries corresponding to arcs 54-55, 

56-57, and 57-58. 

Line 58 terminates reading of NEW-4A cards. At this point, GRASP has 
generated the first copy of the subsystem. It now begins to generate the 
second copy, and it generates the arcs in the same order that they were read 
for the first copy. Whenever it encounters a non-zero field 10, it reads a 
data card (type NEW-2B) that must contain the new parameters for that arc. 

Lines 57-60 correspond to the changed arcs in the second copy. Note that 
they appear in the same order as their corresponding arcs in the first copy. 

So, each time GRASP encounters a non-zero field 10 while generating copy 2, 
it will read a card which has the correct information for the arc currently being 
inserted in the network. 

Note that field 10 in lines 57 to 60 is "3". After line 60 is read, 

GRASP will finish generating copy 2. Then it will begin copy 3. A similar 
procedure will be followed in generating this copy, only now, GRASP will reference 
the values for field 10 in lines 59 to 62, Thus, lines 63 to 66 are the arcs 
in copy 3 that have different characteristics than those in copy 1 . 

So, lines 59 to 66 are all NEW-4B cards. Note that GRASP generates the 
start and end nodes for those arcs. They have been included in lines 59 to 
66 for clarity only. 

Line 76 is the HIST Keyword, and it causes the following empirical 
distributions to be read. These are the empirical distributions that were 
punched as output from Levels 3(a) and 3(b) with the PUNCH Keyword, For 
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example, line 78 contains cell probabilities' for empirical distribution 1. 

This is the TBF distribution from Level 3(a). The first three cell probabilities 
are 0.1972, 0.0851, 0.0951, and 0.0841. The histogram for this distribution 
was shown in Figure 4.5.20. These probabilities can be confirmed by looking 
at the Relative Frequency column of this figure. The lower bounds of the 
cells given on lines 80 to 83 can similarly be checked, 

Node summaries and histograms for Level 2 are given in Figures 4.5.27, 

2.8, and 29. From Figure 4.5.27 it can be seen that Level 2 has mean time 
between failures of 36.15 and mean repair time of 32.92. 

The SAVE Keywords at lines 109 and 110 of Figure 4.5.26 causes the 
histograms in Figures 4.5.28 and 29 to be converted to empirical distributions 
for use in Level 1. The histograms are also to be punched for later reference 
as shown at lines 107 and 108. 

The input for level 1 starts at line 111 of Figure 4,5.26. Subsystems 
are used in this network, too. The first copy of the subsystem consists of 
nodes 89, 90, and 91 (see Figure 3.8.8). The non-subsystem nodes are 101 to 

no. 

In Figure 4.5.26, lines 115 to 124 are the NEW-2 cards for non-subsystem 
nodes. The most extensive use of default values is shown in this network. 

For example, line 115 is the NEW-2 card for node 101. Note that only field 
1 (the node number) is non-blank. The default values for Ml and N2 are both 
one. Thus, a deterministic, non-statistics node with N1 = N2 = 1 can be 
specified by simply putting the node number in field 1. 

The NEW-2A card is shown on line 126 , It specifies that there are three 
nodes in the subsystem, three copies are desired, and there are three arcs 
in the subsystem. Lines 127 to 130 are the NEW-2B cards for the first 
copy, No parameter sets are used, so line 13i has a zero in field 1, 
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Figure 4.5.28 TBF Histogram for Level 2 
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Figure 4.5.29 Repair Histogram for Level 2 
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Lines 132 to 149 are NEW-4 cards for non-subsystem arcs. Another 
default has been used here. If the Distribution Type is left blank, 

GRASP will assume Distribution Type 10. Hence, an arc with parameters 
''0.0(0,T0)[0,]" and no count type, activity type, or associated cost 
C-node, can be specified by indicating only the start and end nodes. As 
an example, line 132 specifies such an arc between nodes 90 and 102. 

Subsystem arcs for the first copy of the subsystem are shown on lines 
151 to 153. Since all of the copies of the subsystem are identical, no 
NEW-4B cards are needed. Note tha't lines 151 and 152 reference empirical 
distributions 5 and 6 which were SAVEd.^ in the simulation of level 2. 

Once information is stored into the arrays for empirical distributions 
(by HIST or SAVE Keywords) it remains there until changed by another HIST” 
or SAVE which references the same distribution number. In other words, 
these arrays are not cleared by the RUN Keyword as are the statistical 
arrays. So, empirical distributions can be stored and will remain available 
until used, even if several other simulations are run between the time the 
distribution is stored and the time it is referenced. 

Node summaries and histograms for Level 1 are shown in Figure 4.5.30 to 
4.5.34. Figure 4.5.30 reveals that the mean time between failures is 34.33 
(from node 109). Note that the information for nodes 106 and 107 is 
identical (repair times). This results from the fact that the time 
statistics for C-nodes are identical to those for Delay nodes. Node 107 
was included to graphically depict this characteristic. Obviously, node 
107 is not needed in this network. The lesson here is that when information 
is desired on both accumulated times and the length of the individual 
times, a single C-node may suffice. This situation, often arises in 
reliability analysis as it did in this case where mean repair time and 
cumulative down time are both of interest. 
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Figure 4.5v30 Node Summaries for Level 1 
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Figure 4.5.31 TBF Histogram for Level 1 
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Figure 4.5.32 Repair Histogram for Level 1 
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figure 4.5.34 Master Accuniulator Histograni 
for Level 1 


The TBF histogram f?om node 106 Is shown In Figure 4i5*26. Note that 
this histogram reveals that the repair time distribution is strongly 
uni nodal. 

Figure 4.5,27 Is the sumnary for the master C-node accumulators, and It 
Indicates that the average down time for the system during the mission time 
is 5S9, and the'misslon time Is 1000- {from p. 98). Ihe histogram for these 
times is given in Figure 4.5.23v Cost analysis was not specified in data Input. 

Before closing this section, the network decomposition technique 
requires a few additional comments. The runs and data input for this 
example were chosen to illustrate a variety of the capabilities of GRASP, 

For practical purposes, the entire decomposition example could be simulated 
in one computer run. The Input for Levels 3(a) and 3(b) can be stacked 
(as were Levels 2 and 1) and the SAVE Keyword used to store empirical 
distributions 1 through 4. Immediately following this the Level 2 and Level 
1 data cards would be inserted. The only difference is that the HIST Keyword 
and its associated data cards (lines 74 to 103 of Figure 4.5.20) would be 
removed. In this way, the entire system .un be simulated in one computer run. 
Self-scaled histograms play an important part in this procedure since they 
remove the necessity of estimating histogram cell widths at the higher 
levels. 
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SECTION 5 

PROGRAM STRUCTURE AND USER GUIDEUNES 

This section will present a sunuMry of the stroctwre and program organixa 
tion of GRASP. The mechansim by which GRASP stores infonnation in its filing 
arrays is explained and several constderations concerning runnini:^* GRASP on., 
the user's host computer are discussedi 

,§,rl 

The GRASP subprograms and their relationships are shown in Figure 5.1.1. 
Table 5.1.1 lists each subprogram with its calling parameters and a brief 
dascripti on of its function. 

Program GRASP is the main line program. Its only function is to set 
certain program control variables and call GASP, GASP is the executive 
routine which processes events and controls the simulation. GASP calls 
DATIN which performs data input and decodes the control language. Return 
from Subroutine DATIN is prompted Ijy the RUN Keyword, 

Once control is returned to GASP, the simulation is executed. End 
of activity events are scheduled by Subroutine SCHAT. SCHAT uses SAMPL 
which calls the random variate generators, RNORM, TRNGL, GAM, BETAXF, 

PERTXF, OISCR, and DRANO. These routines sample from the distribution types 
to obtain the times for activities. The end of activity events are filed 

into the filing arrays with FllEM, 

* 

GASP removes events from the files with Subroutine RMOVE and collects 
statistics with HlStO, GSTUP, GOUT, and COLCC. When the simulation is 
complete, a call to SUMRY produces the output, Subroutine ADOST scales 
histograms and GREAO, CiSAVE, and ASS6N are used to read, save and punch 
empirical distributionsv 


i: 






/) 




\ 
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Figure 5.1.1 Subprogram Cross Reference 


From the following diagram one may see which subprograms 

are used In any GRASP subprogram. For Instance,') the subroutine 

PATIN uses support subrou;t1nes: - 

FI LEM 

NFIND 

BETAXF 

PERTXF 

GREAD 

GSAVE 

ERROR 

Subroutine DATIN 1s called by subroutine GASP. In addition, the 
line numbers where each subprogram starts Is also given. The 
random number generator used is th^ FUNCTION RANF (ISEED). 

This function is system dependent and is not shown In this 
cross reference. 
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Table 5.1.1 GRASP Subprograms 


SUBROUTINE DATIN 
SUBROUTINE GASP 

SUBROUTINE FI LEM (JD) 

■j 

SUBROUTINE SCHAT (NODE) 

SUBROUTINE RMOVE (KCOLL. JD) 

FUNCTION NFIND (NVAL. JO. JATT. IRNK) 

SUBROUTINE HISTO (XI. NO) 

SUBROUTINE COLCT (XX. N) 

SUBROUTINE COLCC 

FUNCTION CSTUP (DUM) 

SUBROUTINE SUMRY 

SUBROUTINE SAMPL (DEV) 

FUNCTION RNORM (JD) 

FUNCTION TRNGL (JD) 

FUNCTION GAM (ALPHA, ISEED) 
SUBROUTINE BETAXF 
SUBROUTINE PERTXF 

SUBROUTINE GREAD 


- Data Input 

- Executive routine that controls 

execution of the simulation 

- Inserts and ranks entries in 

file JD 

- Schedules activities leaving a 

node 

- Removes entry KCOLL from file JD 

- Finds IRNK-j^i entry in file JQ 

whose JATT-jUi attribute has 
value NVAL 

- Records observation XI in 

histogram ND 

- Records observation XX of 

statistic N 

- Updates C-node Time and Cost 

and Tests I2 end Cz Values 

- Calculates current accumualted 

costs 

- Produces output at end of 

simulation 

^ Calls for samples from distribution 
types and returns value as DEV 

- Produces normal sample from 

parameter set JD 

Triangular distribution 

- Gamma variate generator 

- Beta variate generator 

- Generator for distribution 

Type 9 

- Reads empirical distributions 
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Table 5.5.1 (continued) 


SUBROUTINE GSAVE (NOD. JQ. K. KWORD) 

FUNCTION DISCR (JP) 

SUBROUTINE ASSGN (JD) 

SUBROUTINE ADJST 

SUBROUTINE ERROR (J) 

FUNCTION RANF (ISEED) 


- Saves or punches histogram at node 

NOD as empirical distribution 
OQ, K and KWORD are for error 
processing 

- Samples from empirical distribution 

OP 

- Establishes pointers for efficient 

sampling from empirical distribu- 
tion OD 

- Scales histograms with negative 

cell widths 

- Error processor 

- Random number generator (system 

dependent) 
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5.2 GRASP Filing Structure 

. Several references have been made to the filing arrays of GRASP. All 
information on arcs and events are maintained in a single array contained 
in blank common. This array is QSET. It is EQUIVALENCEed to the array 
NSET (in the FORTRAN sense) so both Integer and real number representations 
may be maintained in the same array. 

Information in NSET/QSET is arranged into files. Each node has a file^ 

* 

which is numbered the same as the node number. In other words, node 5 
information is maintained in file 5. The contents of this file are the 
attributes of all arcs leaving the node, Thus, the information on Data 
Card NEW-4 goes into the file of the start node of the arc. Each arc in a 
file is an "entry", and the entries are ranked in decreasing order of their 
probabilities (Field 1, NEW-4) and then by order of input (if there are 
ties in the probabilities). 

Events in GRASP simulations are the completions of the activities on 
the arcs. Those events are all stored in file 1. This explains why no node 
can be numbered one. File one is reserved for events. 

Two buffer arrays, ATRIB and JTRIB, each of length six, are used to 
transfer information into and out of NSET/QSET. Each entry in NSET/QSET 
consists of 14 consecutive locations. The first 6 are the JTRIB' S, the 
second six are ATRIB'S, and the last two are a predecessor and successor 
pointer, respectively. 

The contents of the predecessor location is the number of the location 
in NSET/QSET which contains the JTRIB (1) of the immediately preceding 
entry in that file (recall that the entries in a file are ranked and, there- 
fore, have an order). The successor pointer has the same information for 


222 

the immediately following entry. If an entry has no predecessor, the 
pointer is 99999. If an entry has no successor the pointer is 77777. 

If the entry is the last one which will fit in NSET/QSET (i.e., the filing 
array is full) then the successor pointer is 88888. Table 5.2.1 and 5.2,2 
show the contents of the entries for node files and the event file. 

As an example, suppose the first type NEW-2 card that is read by 
GRASP describes an arc that leaves Node 6. This information will become 
an entry in File 6 and will be stored in the first available group of 14 
consecutive locations in NSET/QSET. A record is kept of the address where 
file 6 starts. Since we are considering the first NEW-4 card, this will be 
the first 14 locations of cells in NSET/QSET. Hence, in file 6 NSET(l) will 
contain the arc's end node (JTRI8(1) — see Table 5.2.1) and QSET(12) will 
correspond to ATRIB{6) (not used for node files). Since this is the first 
entry in File 6, it has no predecessor and NSET(13) will be equal to 99999. 
Since no successor exists, NSET(14) = 77777. 

Now, if the next arc read also leaves Node 6, its information will 
also go into file 6, but it will go into NSET/QSET locations 15 through 28. 

The successor pointer for the first entry (NSET(14)) will be changed to 
point to the address of the first cell in the second entry. In other words, 
NSET(14) will equal 15. The predecessor pointer for the second entry 
(NSET(27)) will equal one (since the first cell of the first entry is 
NSET(l) and the successor pointer will equal 99999, In this way, a chain 
of entries in the filing array is built which permits locating any entry 
in the file. For simplicity in this example, we have assumed that the two 
arcs have the same probability. If the probabilities differed, the first 
entry would be the one with the higher probability. 

This elementary description of the filing structure is necessary to 
interpret the file dump produced by Subroutine ERROR. A complete 
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description and an example of this dump is given in -Sfction 5*3. 

Also, since the filing array is in blank common, the program can be 
lengthened or shortened by changing the dimension of QSET in the main 
program (GRASP) only, QSET is dimensioned to length one in all other 
subprograms. Hence, if core storage is a prime consideration, and if 
the systems to be simulated don't have very many arcs, the program can 
be easily shortened by changing the length of QSET. Array adjustment 
procedures are described in Section 5.4. 
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Table 5.2.1 Contents of EntHes 

in Node Files 


Locatl on 



\ 

Within 


Buffer Array / \ 


Entries 

Contents 

Equivalence / \ 


1 

the arc's end node 

JTRIB (T) \ 

u. V 1 


2 

parameter set 

JTRIB (2) ’ 


3 

distribution type 

JTRIB (3) 

4 

count type 

JTRIB (4) 

5 

activity number 

JTRIB (5) 1 

6 

associated C-node 

JTRIB (6) 

7 • 

probability of arc 

ATRIB (1) 

8 

not used 

ATRIB (2) j 

9 

fixed cost 

ATRIB (3) j 

10 

variable cost 

ATRIB (4) i <v 

i 

11 

not used 

ATRIB (5) 1 

h 

12 

not used 

ATRIB (6) 1 


13 

predecessor pointer 

1 

i 


14 

successor pointer 

1 

1 






Table 5.2.2 Coj^tents of Entries In File 1 (Event File) 


Location 

Within 

Entries 

Contents 

Buffer Array 
Equivalence 

1 

the arc's end node 

JTRIB (1) 

2 

parameter set 

JTRIB (2) 

3 

distribution type 

JTRIB (3) 

4 

count type 

JTRIB (4) 

5 

activity number 

JTRIB (5) 

6 

associated C-node 

JTRIB (6) 

7 

activity completion time 

ATRIB (1) 

8 

time mark node activated 

ATRIB (2) 

9 

fixed cost 

ATRIB (3) 

10 

variable cost 

ATRIB (4) 

11 

network cost at time 
mark node activated 

ATRIB (5) 

12 

start time of activity 
(if JTRIB (6) > 0) 

ATRIB (6) 

13 

predecessor pointer 

— 

14 

successor pointer 

' — 
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5.3 File Dumps 

GRASP files are dumped whenever a call is made to subroutine ERROR by 
another subprogram which has detected an error condition. In addition, a 
file dump can be requested as a debugging aid by the user by specifying an 
appropriate value for field 19 on date card type NEW-1. 

Part of a file dump for the example in Figure 3.4.2 is shown in Figure 
5.3.1. This dump was requested on data card type NEW-1. The event file 
is empty for all such dumps, so no entries in File 1 will be listed. This 
will always be true for user requested dumps because the dump is produced 
before or after the simulation is performed. If a dump is produced as a 
result of an error condition* the event file will, in general, not be empty, 
and File 1 entries will be printed. 

Now, referring to Figure 5.3.1, we see that this dump was produced 
at time 500. In other words, this dump was produced after the network was 
simulated. The ''P=" and "S=" notation indicates the predecessor and 
successor pointers in NSET/QSET. 

Files 2 through 8 are shown in Figure 5.3.1. Recall that these are 
node files, so the entries in these files will correspond to the arcs 
leaving nodes 2,...., 8 in Figure 3.4.2. Of course, there will also be a 
file for every other node in Figure 3.4.2 that has a leaving arc. 

Each entry in a file is represented by three lines. The f-’>'st line 
starts with "CELL=". The value to the right of this is the cell number of 
NSET/QSET which contains the first value (JTRIB(l)) of this entry. In 
other words, this entry in File 2 is physically stored in NSET(l) through 
NSET(14). This is not the only entry in File 2. It has no predecessor. 
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Figure 5.3.1 Dump of Node Files for Figure 3.4.2 





P = 99999, but it has a successor, S = 15. Since we have 3 arcs leaving 
node 2, we have three entries in File 2. Each entry represents an arc. 

The meaning of JTRIB and ATRIB values (refer to Tables 5.2.1 and 5,2.2) 
agree with the information supplied in Figure 3,4,2. The second entry 
corresponds to the arc (2,6) and it has P * 1 and S = 29, This indicates 
that the previous entry starts at NSET(l) and the next entry starts at 
NSET(29). The last entry in this file corresponds to arc (.2,7), S = 77777 
indicates that this is the last entry. Files 3, 4 and 5 also have 3 
entries each. Files 6, 7, and 8 have only one entry each. P = 99999 and 
S = 77777 for each of them. 

The v/ay in which a chain is built by the predecessor and successor 
pointers make the storage allocation very efficient. The program always 
keeps track on the first available space in NSET/QSET, the address of the 
first and last entry in eac^ =Mle by using some other pointers. This 
mechanism is the same as in GASP IV (reference 19). 

The statistical and histogram storage arrays are also dumped whenever 
the dump is produced from an error condition or the user requests it after 
execution. 

The array SUMA contains the information from which the node summaries 
are produced. If X represents the observations then each row of SUMA will 
contain the foil owi ng : 


ng: 


SUMA(-,1) 

= sum of X's 

SUMA(-,2) 

= sum of squares of X's 

SUMA(-,3) 

= number of observations 

SUMA(-,4) 

= minimum of the observations 

SUMA (•,5) 

= maximum of the observations 
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Figure 5.3.2 Dump of Array SUMA 
for Figure 3.4.2 
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Figure 5.3,2 is a dump of SUMA after execution for Figure 3.4.2. The rows 
of SUMA are printed in order. Each statistics node requires at least two 
rows in SUMA. One collects time statistics and the other collects cost 
statistics. In addition, if count types exist, each statistics node will 
require a row for each count type. Further, if C-nodes exist in the network, 
the last two rows in SUMA will contain the information for the master time 
and cost accumulators, in that order. Each row is labeled with the number 
of the associated node. Rows for time statistics are listed first. Count 
type information immediately follows the time information. The notation 
"6(1)" would indicate that that row is for node 6, count type 1, The 
cost rows follow these, and finally the time and cost accumulators are 
listed. 

Included in the dump of statistical arrays is a printing of the 
histogram storage array JCELS. The 32 cells of each histogram are printed 
and labeled with node numbers. Time histograms are printed first and then 
cost histograms. As before, the last two rows in JCELS contain the histograms 
for the master time and cost accumulators. See Figure 5.3.3 for the dump 
of JCELS for Figure 3.4.2. 

5.4 Compatibility and Portability 

With current array dimensions, GRASP requires about 33000^0 words of 
core memory. In addition, if self-scaled histograms are utilized, a disk 
storage device is required. 

Specific user actions are as follows; 

1. The Variables in the main program for card reader (NCRDR), 
printer (NPRNT), punch (NPNCH) and disk file (NHIS) equipment 
numbers must be set properly. Further, if the dimension of 
QSET is changed, the variable MAXQS must be set equal to the 



dimension of QSET, IMN = maximum node number allowed, 
and MAX = the maximum number of empirical distributions 
permi tted 

2. Function RANF is the function that generates uniform 
pseudo-random numbers on the interval (0,1). Its 
argument ISEED is defined by the user and automatically 
changes every time this function is called. It is 
recommended that the random number generator contained on the 
user's computer system be used. 

3. GRASP was originally developed on a CDC 6400 system (reference 
21). This AMDAHL version includes some new features, such 

as the node release mechanism, and does not retain some of 
the earlier characteristics. For instance, the initial value 
of the seed for the random number generator is no longer 
available during the simulation because it is not needed for 
most purposes. Other omissions are the use of the random 
number generator as a specific subprogram, and the subroutine 
previously used for time limit checking. A time limit is 
always available through the job card when we run the program. 

5.5 Adjusting the Array Sizes of GRASP 

The maximum size network that GRASP can accommodate is determined 
by the; dimensions of certain arrays that are contained in the labeled 
COMMON blocks GL through G7. These COMMON statements are shown in Figure 
5.4. 1. This section will list the present size limitations for GRASP and 
give instructi on on how to alter those dimensions if desired. 
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COMMON QSEt(5600) 

COMMON /G 1 / MFA , MXC , IPRT , ICRD , IMl , IM2 , MAXQS , NT2R , NC2R , NOQ , NSNK, 

1 NRUN,NRNS,ISED,TNOW,ATRIB(6) ,JTRIB(8) ,NAME(20) , JCELS(200,32) 
COMMON /G2/ MFE(300),MLE(300),NQ(300),PARM(100,A),SUM1(300), 

I SUM2(300),SUM3(300) ,SUM4(300),SUM5(300) ,NT2C2iEPS 
COMMON /G3/ KSTl(lOO) ,XL0W(200) ,NREL1(300) ,NREL2(300) ,NREL(300) , 
1 MREL(300) ,KST4(100) ,KST3(100) ,NTYPS(300) ,WIDTH<200) ,NSTS,NCXS 
COMMON /G4/ XSTUS(IOO) ,SUMCT,CSTUS(lOQ) ,NCND,NCNL,NCNU,T2,C2» 

1 ITFLG,ICFLG,TYYY,TCCC,TIMTD,COSTD 

COMMON /G5/ MSTN(2000,2) ,MST(300) ,KST2(300) ,1GRF,JGRAF,SCAL 
COMMON /G6/ NCEL(IO) ,PROB(32,10) ,VAL(33» 10) ,1SEC(3,10) ,MAX,NHIS, 
I KHIST.NPNCH 

COMMON /G7 / ID , IMN , IDMP , NDTU , NSKD , NSTR , NETR , TSTR ^ TETR , NSRC , NDRT , 
I NSORC(100),NPO(100),NABA(200) 


Figure 5.4.1 GRASP Common Statements 
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Immediately following this text are t^ numbered sections. Each 
section describes an attribute of a GRASP network that is limited by array 
sizes. There are three parts to each section. The first is a variable 
or expression that can be computed from the GRASP network that the user 
intends to simulate. When this value is obtained, it must be compared 
to the "current maximum" value which is the second part of each section. 

If the actual value is not greater than this maximum, then the array 
sizes are sufficient to process the network. 

If some attribute of the network exceeds one or more fo the current 
maximum values, then the "Arrays Affected" must be redimensioned. The 
affected arrays are the third part of each numbered section. The minimum 
sizes for these arrays are given in terms of the variable or expression 
that was computed for the users network. Note, however, that when the 
COMMON blocks are changed, numerical values must be inserted in place of 
the variables shown in the "Arrays Affected". 

For example, consider Section 1: Largest Node Number. The variable 
name is IMN. Suppose the largest node number in our network is 115. The 
current maximum is 300. Since 115 is less than 300, no arrays need to be 
changed. On the other hand, if the largest node number is 341, the dimensions 
of all of the affected arrays must be changed to at least 342. 

The variable name or expression given in each section is intended to 
help .the user in computing the values for his network and in figuring the 
minimum dimensions required if some arrays must have their dimensions changed. 
With three exceptions, the user is not required to set values for these 
variables in GRASP. The three exceptions are IMN, the variable for the 
maximum node number, MAX, the variable for the maximum number of empirical 


distributions which can be stored by GRASP at one time, and MAXQS, the 
variable for the length of QSET. Values for these variables must be 
set by the user in the main program whenever the arrays in Sections 1,9, 
or 10 are changed. 

In other words, when changing array dimensions for those arrays 
mentioned in Sections 2 through 8, the only FORTRAN statements that the user 
must change are the COMMON statements. When changing the arrays in Sections 
1, 9, or 10, the FORTRAN statements that set values for IMN, MAX, and MAXQS 
must also be changed. 

1. Largest Node Number 

Variable: IMN 

Current Maximum = 300 

We can have at most 299 nodes in the network since we cannot have 
node #1. 

Arrays Affected: MFE(IMN) , MLE(IMN) , NQ(IMN) , NRELl (IMN) , 

NRELdMN, NTYPE(IMN), NFTBU(IMN), NREL2(IMN), 
MFEN(IMN, LSINK(IMN), MREL(IMN) 

(The variable |MN must be set in the main 
program whenever these arrays are redimensioned). 

2. Largest Number of Statistics Nodes 

Variable: NSKS 

Current Maximum: 100 

Arrays Affected; JCELS(2*NSKS ,32) , NSINK(MSKS) , XL0W(2*NSKS) , 

WIDTH(2*NSKS), NSNR(NSKS), JSINK(NSKS), 

• XSTUS(NSKS), CSTUS(NSKS) 


Note: The first dimension of dCELS must be greater than or equal 

to 44, since the array is also used during subsystem input. 


Maximum Number of Count Types 

Variable: NCTS < 

r NXX - NX n 

L nsKS •* " 

Current Maximum: 

2*NCTS + (NCTS*NSKS) + 2 < 250 


- where NXX is the first dimension of SUMA 
NX = 0 if no C-nodes, NX = 2 if C-nodes • 
the network. [ 3 menas truncated to the 
next lower integer 

Arrays Affected: 

KOUNT(NCTS) 

SUMA(2*NCTS + (NCTS * NSKS) + 2, 5) 

Maximum Number of Count Types (NCTS) Plus Statistics Nodes 

Expression: 2*NSKS + (NCTS * NSKS) +2 

Current Maximum: 

123 with G-nodes 
125 without C-nodes 

Arrays Affected: 

SUMA(2 * NSKS + (NCTS * NSKS) + 2, 5) 

Maximum Parameter Set Number 

Variable: NPRMS 


Current Maximum: 

100 

Arrays Affected: 

PARAM(NPRMS,4) 

Maximum Number of 

Source Nodes 

Variable: NCRC 

■ ll 

Current Maximum: 

100 

Arrays Affected: 

NSORC(NSRC) 

Largest Positive Activity Number 


Variable: MMACT 
Current Maximum: 100 

Arrays Affected: NPO(MMACT) 




Maximum Number of Activities Triqqerinq Modifications 


MACT) Plus the Number of Modifications 


Expression: MACT + 2 * MODS 

Current Maximum: 200 

Arrays Affected: NABA(MACT + 2 * MODS) 


Maximum Number of Arcs in a Network that Can Occur 


n a Simulation Run 


Variable: ID 

Current Maximum: 400 

Arrays Affected: NSETN(ID,2), QSET(14 * ID) 
(when QSET is redimensioned, 
the variable MAXQS msut be 
set to the length of QSET 
in the main program) 


10. Maximum Number of Empirical Distributions 


Variable: MAX 


Current Maximum: 10 

Arrays Affected: PR0B(32,MAX), VAL(33,MA50, 
ISEC(3,MAX), NCEL(MAX) 

(The variable MAX must be set in 
the main program whenever these 
arrays are redimensioned) 
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Variable 

ATRIB(6), 0TRIB(6) 

COSRN 

COSTD 

CSTUS(IOO) 

C2 

DD 

0UM(1408) 

EPS 

ICFLG 

ICHNG 

ICRD 

10 

IDMP 

IGRF 

IMN 

IMl, IM2 
INOUT 

I PARS 
I PASS 


Use 

Buffer array for data transfer. 

Cost in C-node for this run. 

Old cost- to-date in C-nodes. 

Storage area used in collecting cost statistics, 

Termination criterian In a C-node (NEW - 6 card) 

Character variable equal to 'D' characterizing 
the output of a node, 

Working array equivalent to 0CELS(.».) 

Threshold value within which 2 or more events are 
considered to have occurred simultaneously 

Input variable indicating whether the C2-criterian 
will terminate the simulation run or not. 

When equal to 1, indicate that the EDIT mode is on. 

Number of the input file (usually = 5 for card reader) 

Maximum number of entries that can fit in NSET/QSET. 

Option for dumping the content of the files. 

Option for the type of histograms to be printed. 

Maximum node number allowed by array sizes (300). 

Length of array ATRIB, JTRIB (-6). 

Type of node, 1 for source, 2 for sink, 3 for st^'t** 

4 for a mark node. 

Parameter set number 

Indicates when equal to 0, that the number of arcs 
in a particular subsystem is greater than 99. 
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Variable 

IPRT 

I PI 

IP2 

IRNK 

ISEC(3, 10) 

ISED 

ISIM 

ISIMX 

ITFLG 

ITED 

JCELS(.,32) 

JGRAF 

Jaj(50) 

KACTS 
KEYS ((7) 

KHIS 
KHIST 
KOUNT(I) 
KSTl(K) = NODE 
KST2(N0DE) = K 




Use 

Device number for the output (usually = 6 for 
line printer). 

Points to the location of the 1st available group 
of 3 cells in the array NRP (.) 

Dummy pointer in node replacement section. 

Rank of an area being edited, 

storage area used in subroutine ASSGN and DISCR. 

Seed for random number generation. 

Number of simultaneous events at time TNOW. 

Maximum value of ISIM at any time (=50)^. 

Input variable inulcating whether the T2 criterian 
will terminate the simulation run or not. 

Variable set equal to 1 if the number of subsystems 
exceeds 10. 

Storage array for histograms. 

Takes the value 1 if ATRIB(3) or ATRIB(4) > 0. 

Working array for simultaneous events. 

Number of arcs in a particular subsystem. 

Storage array for the key words NEW, RUN, STOP, 
HIST, SAVE, EDIT and PUNC. 

Number assigned to an empirical distribution. 

Number of histograms to be collected. 

Current value of count type I. 

Array containing the statistics node numbers. 

K is the k-th statistics node. KSTl and KST2 point 
to one another. 
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I 


Variable 

Use 

KST3(K) 

Statistics code (F,AiB,I,D,C) maintained In 
the k-th statistics node. 

KST4(K) 

Counts the number of times a statistic of type 
KST3(K) has been collected In the k-th statistics 
node 

KSSP 

Copy number of a particular subsystem. 

KSUBS 

Subsystem type. 

KTYP(S) 

Storage for the keywords PARM, ARCS, NODE, CNOD 
and ONE, used durilig the EDIT mode. 

MACT 

Maximum number of a^t;'cs triggering modifications. . 

MAX 

Maximum number of empirical distributions. 

MAXQS 

Maximum length of NSET/QSET. 

MDATA(6) 

Storage for the characters F,A,B,S,D and C 
indicating the type Cf statistics to be collected. 

MFA 

Location In NSET/QSET of Isl; available space for 
storing an entry In a file 

MFE(I) 

Location in NSET/QSET of 1st entry of file I. 

MLE(I) 

Location in NSET/QSET of last entry of file 1. 

MMACT 

Largest number an arc can have (=100=/dimension 
of NPO) 

MODI 

Input variable equal to 1 If modifications exist 
in the network. 

MODS 

Number of modifications in the network. 

MREL(I) 

Current value of the release counter of node I. 

MRELl 

= N1 an Input for the node being read In. 

MREL2 

= N2 an Input for the node being read in. 

MSINK 

Type of statistics to be collected: F,A,B,C,D or 


Variable 


Use 


MST(NODE) = 
MSTNd.l) = 

MSTN(I,2) = 

MXC 

.NABA (100) 
NABYA (24) 

NACTN 

NACTS 
NAME (20) 

NCEL(I) 

NOELS 

NCLT 

NCND 

NCRC 

NCTS 

NC2R 

NDINl 

NDIN2 

NDOUT 


"MST starts a chain of arcs that arrive to a 
cell In node, MSTN(I,I) is the location in NSET/QSET 

NSET/QSET of an arc arriving at node NODE. MSTN(I2,1) 

TO is the next such arc, etc. 


2nd argument in the size of array 
JCELS(.,.) (=32) 

Storage array for network modification. 

Buffer for storing the content of arc data card 
in node replacement section. 

An activity number that triggers the replacement 
of a node to occur. If negative, it represents 
a continuation of previous card information. 

Number of activities in a particular subsystem. 

Array representing the general information about 
the network 

Number of cells in empirical distribution #1. 

Number of cells in current empirical distribution 

Number of quantities on which statistics are to 
be collected. 

Number of C-nodes. 

Maximum number of source nodes allowed. 

Number of count types. 

Current value of C2. 

Indicates the 1st node in, in node replacement 
section. 

Indicates the next node in, in node replacement 
section. 

Indicates the node out in node replacement 
section. 


Variable 


Use 
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If node N is to be replaced by another node, then 
NDR(N) points to the location in NRP(.) whe/e the 
1st replacing node is located, 

Number of delay type nodes, 

Working array representing end nodes of arc term- 
inating at the same time 

Run number for end of tracing, 

Number of the output file for storing an em- 
pirical distribution in a histogram form. 

NHIST Number of histograms collected. 

NNSUB Number of nodes in ptiflicular subsystem. 

NOQ Largest node number read in. 

NPNCH Number of the output file for intermediate 

results to be used in a later simulation. 


NDR(N) 

NOT 

NEND(50) 

NETR 

NHIS 


NPO(NACTN) For activity type NACTN, it indicates the 

starting location in NABA where modification 
information is stored, such that; 

NABA(NPOS) = NABYA(I) = node out 

NABA(NP0S+1) s NABYA(I+1) = node in 

Entries in NABA are separated by zeros. 

NPOS Total number of nodes affected by replacement. 

It represents the number of items in NABA and 
is an even number. 

NPRMS Largest parameter set number. 

NPRT Output option if equal to 1 then the input data 

cards will not be printed out. 

NQ(S) Current number of entries in file I. 

NREL(I) Initial value of the release counter of node 

I. It is either NRELl(I) or NREL2(I). 


Variable 


Use 


NRNS 

Input value specifying the total number of runs 
for the simulation. 

NRP( . ) 

Contains a replacing node in each group of 
3 cells. 

NRUN 

Number of the current simulation run 

NSBS 

4 

Input value specifying the number of subsystems 
in the network. 

NSET(I) 

Integer representation of filing array. Used 
for integer attribute values and pointers. 

NSINK(K) 

Node number of the K-th statistics node. 

NSKD 

Total number of sink and delay nodes. 

NSKNO 

Number of sink and not delay nodes. 

NSKS 

Maximum number of statistics nodes allowed. 

NSKT 

Total number of fnnk node releases to end the 
simulation run; (the sink nodes must be different) 

NSNK 

Total number of sink nodes. 

NSORC(IOO) 

Storage array for source nodes. 

NSRC 

Total number of source nodes. 

NSSP 

Number of times a particular subsystem occurs. 

NSTC 

Total number of accumulator nodes. 

NSTD 

Total number of stat. and delay nodes. 

NSTND 

Total number of stat. and not either a delay 
or accum. nodes. 

NST01(99) - NST08(99) 

Temporary arrays for storing node information 
needed for subsystem generation. 

NSTR 

Run number for beginning of tracing. 






Variable 

NSTS 

NSTST 

NSU3I{10,4) 

NT = NTYPE(NODE) 

NUACT 

NUNOD 

NT2C2 

NT2R 

PARM(.,4) 

PP 

PRAM(4) 

PRMV 

PR0B(32,.) 

PTOPT 

QSET(.) 

SCAL 

ST01(99) - ST06(99) 
SUMA(.,5) 


SUMCT 

TCCC 



(LH/ 


Use 

Number of statistics nodes. 

Number of statistics, sink and accumulated 
type nodes. 

Storage area for input subsystems. 


Used for subsystem arcs in NEW-4A input card. 

Used for subsystem nodes in NEW-2B input card. 

Number of times system exceeded both T2 and C2. 

Current value of T2 

Storage area for parameter sets. 

Character variable equal to 'P' specifying that 
the output of a node is stochastic. 

Parameter values as described in Table 4.3.2. 

Character variable characterizing the input side 
of a node. Can take values equal to HH = 'H', 

AA = 'A' , or UU = 'U'? 

Probability storage for empirical distributions. 

Output characteristics of a node equal to PP = *P’ 
for stochastic nodes or DD = 'D' or blank for 
deterministic nodes. 

Real valued representation of file storage areas. 

Scale factor for distribution type 10, 

Teniporary arrays for storing arc information 
needed for subsystem generation. 

Statistical storage for node summaries. 

Total cost for an activity. 

Cummulative cost of still active C-nodes at end 
of runs. 






Variable 

Use 

TIMTD 

Old time-to-date in c-nodes. 

TIMl 

If TIMl = 0, then start tracing when TNOW > tIMl. 

TIM2 

Stop tracing when TNOW > TIM2. 

TIMRN 

Time in C-node for this run. 

TNOW 

Current simulation time. 

TYYY 

Cumulative times of still active C-nodes at 
end of runs. 

T2 

Maximum value for C-node time accumulator 
statistics. 

VAL(33,0 

Cell values for empirical distributions. 

WIDC 

Same as WIDH but for cost histograms. 

WIDH 

Width of each cell of a histogram. 

WIDTH(200) 

Storage area for width of cells at nodes where 
histograms are to be collected. 

WTCl 

Same as WTTl but for costs. 

WTTl 

Width of cell for master C-node time histogram. 

XCOST 

Accumulated cost in C-node to date. 

XLG 

Same as XLL but for cost histograms. 

XLCl 

Same as XLTl but for costs. 

XLL 

Lower limit of the second cell of a histogram. 

XLOW(.) 

Storage array for the lower limit of the second 
cells of the histograms. 

XLTl 

Lower limit of second cell of master C-node 
time histogram. 

SXTUS(IOO) 

Work storage area used in collecting time statisti 

XTIME 

Accumulated time in C-node to date. 


APPENDIX B 


GRASP ERROR TYPES 


Error Number 

Subrouti ne 

Probable 

10 

GASP 

The program is very likely going 
through an infinite loop. Check 
the network model around the 
node indicated 

11 

RMOVE 

Attempt to remove an entry from an 


empty event file. Since entries 
that are removed from the event 
file are scratched, it is likely 
that the program stopped because 
the flow of transactions ends at 
a node that is not a C-node or 
a sink node 

13 DATIN Attempted to Edit in arc that does 

not exist 


14 

22 


23 


87 

88 


89 


90 


GSAVE Attempted to save a histogram with 

no observations recorded 

GASP Number of statistics nodes to realize 

the network is < 0. Probable 
cause is incorrect dimension of 
QSET 

SCHAT Pointing error in filing array. 

Probable incorrect dimension 
of QSET of value of MAXQS 

FILEM Filing array field. Increase 

dimension of QSET and check 
value of MAXQS 

FILEM Filing pointer error. Increase 

dimension of QSET and check 
value of MAXQS 

NFIND Entry in file to be located; has 

negative location. Probable 
incorrect dimension of QSET 

COLCT Probable cause is incorrect data 

input of number of statistics 
nodes or count types 
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Error Number 


Subroutine 


Probable Cause 


DATIN 

RMOVE 


Increase dimension of array NASA 

Attempted to remove an entry from 
a file that does not exist. 
Probable incorrect dimensions 
of QSET or attempt to release a 
node that has no arc originating 
from it. 


There are too many simultaneous arc 
completions. Check the model or 
increase the dimension of NEND, 
JOJ and change the value of ISMIX 
in the subroutine GASP 


DISCR 


Requested sample from empirical 
distribution number greater than 
MAX. Check data input and value 
of MAX 


Any other error whose number does not appear above is very likely to be 
an input error. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


GPAsw Version OATeo july ist. 


lOBl. THE CAOAtJILlTY TO RROCfcSa 
ANC COMPO’WO NODE REPLACSMcNTS 


SIMUUTANS0U5 gVENTS. MULTIPLE 
WAS AOOeO TO THE GRASP VEPSION OATEO JUMP 1ST, 1979. THE IQ79 
VERSION CONTAINS EXTENSIONS TO THE NODE RELEASE MECHANISM, 

AND IS BASED ON THE MARCH IS* 1976 VERSION. THE FIRST VERSION 
OF GRASP WAS BASED ON SUBSYSTEM AND C-NQOE ADAPTATION OF 
GERTS-IIIZ, VERSION DATED JUNE 20, 1973. 

COMMON QSET<5600) 

COMMON /Gl/ MFA.MXC, IPRT, ICBD.IMl , IM2 , MAX QS , NT2R , NC2R , NOQ , NSNK , 


I NRUN,NRNS»1SED,TN0W.ATRI8(6) , JTRIB( 6)*NAME( 20) , JCELS ( 20 0 ,3 2 ) 
COMMON /G2/ MFE(300) .MLE(300) ,NQ(300) ,PARM(100,4) ,SUM1 (300) , 

I SUM2(300) ,SUM3(300) ,SUM4( 300 ) ,SUM5( 300 ) , NT2C2.EPS 
COMMON /G3/ KSTK 100 ) ,XLOW ( 200 ) , NPFLl (30 0 ) ,NREL2(300 ) , NREL(300) * 

1 MREL( 300) .KST4( 100) ,KST3( 10 0) .NTYPEOOO ) , WIOTH( 200 ) ,NSTS,NCTS 
COMMON /G4/ XSTUS( 100 ) , SUMCT , CSTUS ( 1 00 ) , NCNO , NCNL , NCNU , T2 ,C2 * 

1 ITFLG.ICFLG.TYYY»TCCC,TIMTO,COSTO 
COMMON /G5/ MSTN( 2000.2) ,MST( 300) .KST2(30Q) , I GRF , JGRAF ,SCAL 
COMMON /G6/ NCEL( 10) .PROS (32* 10) *VAL( 33.10)* I SEC (3,10) ,MAX,NHlS , 

1 KHIST.NPNCH 

COMMON /G7/ ID, IMN , I DMP *NOTU , NSKO , NSTR . NE TR , TSTR , TETR , NSRC , NORT , 

1 NSORCI 100) ,NPO( 100) ,NA8A(200) 

DOUBLE PRECISION SUM 1, SUM 2 
C 

C*A***‘ ET EQUIPMENT NUMBERS FOR CARO READER! ICRD) * PRINTER (IPRT) 

, PUNCH(NPNCH) , AND HISTOGRAM STORAGE (NH IS )( OPT I ONAL ) 

C<«>X*,!c5(;SET max LENGTH OF QSET(MAXQS), MAX NODE NUMBER! IMN), AND MAX 
C**,!c**NUMBER OF EMPIRICAL D JSTR IBUTIONS ( MAX ) 

C 

ICR0=5 

IPRT=6 

NPNCH=2 

NH1S=1 

maX03=5600 

IMN=300 

MAX=lO 

I Ml =6 

IM2=6 

1DMP=0 

ID-MAXQ5/( IM1 + IM2+2) 

10 CALL GASP 
GO TO 1 0 
END 
C 

SUaROUTINE DATIN 
OIMEMSICN N33T(5600) 

DIMENSIIjN NAr?YA(24), M0ATA(6), PRAM(4). KEY3(7), KTY=>(5), 

1 DUM ( 1 400) 

DIMENSION N3UBT(10,4), NSTC1(99), NST02(9S), NSTQ3(99), N3TC4(99) 
DIMENSION NST05(99), NST06(99y* NSTC7(9P), ST 31 ( 99 ) , ST02 ( 99 ) 
DIMENSION ST03(P9), ST04(99), ST05(99)» 5T06 ( «9 ) , N5T08( 9P ) 

COMMON QSET(5600) 

COMMON /Gl/ MFA ,MXC, IPRT* ICRO . IMl * IMP , MAX QS , NT2R , NC2R ,N0Q .NSMK , 

1 MRUN,NRNS. I SFD*TN0W,ATB 18(6 ) * JTRIBl'6 ) ,NAMS (20 ) , J CELS ( 20 0 . 32 ) 


OOOOOOOl 
00000002 
00000003 
00000304 
00000005 
00000006 
00000007 
00000008 
00000009 
00000010 
00000011 
00000012 
00000013 
000b«Si014 
00000015 
000000161 
000 00017- 

oooooois| 
00000019 
OOOOOO20! 
000 0 002l| 
000 0 00221 
OOOGGO23’ 
000000241 
00000025- 
ooooooaej 

000000271 

00000023* 

00000029 

0000003d 

00000031! 
0000003a 
00000033 
0000003< 
0000003^ 
0000003! 
0000003' 
0000003! 
0000003' 
000 0 004< 
000 0 00411 
0000004: 
0000004: 
000000441 
0000000 1 
0030 000 E 
000 0 000 ■■ 
00.30 00 0^ 
0-300000' 
000 00006 
0300000 j 
OOOOOOOi^ 
03000009 
000 000 1 'I 
0030001 
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COMMON /G2/ MFE(300) *MLE(300) .NQOOO ) .PARM( 100»4) tSUMl (300) ♦ 

I SUM2( 300) ,SUM3( 300 ) «SUM4(300) *SUME( 300 ) »NT2C2»EPS 
COMMON /G3/ KSTl ( 100 ) »XLOW ( 200) ♦MRELl ( 300 ) «NREL2( 300 ) » NREL( 300) » 

1 MP.EL( 30 0) «KST4{ 100) ,KST3( 1 0 0 ) , NTY^E < 300 ) ,W IDTH(200 ) .NSTS«NCTS 
. ..COMMON /G4/ XSTUSU00).SUMCTfCST;USa00)fNCND,NCNL,NCNU.T2,C2. 

1 ITFLG,ICFLG,TYYY,TCCC.TIMTD,COSTD 
COMMON /GS/ MSTN(2000f2)»MST(300) tKST2(300).lGRF.JGRAF,SCAL 
COMMON /G7/ 10. IMN. I DMP ♦ NDTU, NSKO . NSTP .NETR . TSTR . TETR . NSRC .NDRT » 

I NSORCClOO) .NPO( 100) .NABA(200) 

EQUIVALENCE ( JCELS( I . 1 ) .DUM( 1 ) ) . (NSTOl ( 1 ) .DUM< I ) ) ♦ 

1 (NST02( 1 ) .DUM(IOO) ) . ( NST03 ( I ) . OUM( I 9R ) ) » < NST04( I ) » DUM ( 298 ) ) , 

2 <NSTOS( 1 ) .0UM(3971 ) . ( NST06 ( 1 ) . OUM < 496 ) ) . (NST07( 1 ) .0UM(595) ) . 

3 (NST08( I ) »OUM{ 1288) ) . ( STQ 1 ( I ) . DUM( 694 ) ) . ( ST02C 1 ) ♦ OUM{ 793 ) ) . 

4 (ST03(l ) »0UM(892) ) . ( ST04( 1 ) ,DUM (99 1 ) ) . ( ST05( t ) .OUM { 1 090 ) ) . 

5 (.ST06(l ).DUM(1189) ) 

EQUIVALENCE ( NSET ( I ) . QSET ( 1 ) ) 

data PP/lHP/»DO/lHn/.UU/lHU/.AA/lHA/.HH/lHH/»BLK/lH / 

DATA MOAT A ( 1 ) »MOATA( 2 > ,M0ATA(3) »MOATA( 4) , MDATA ( 5 ) » MDATA( 6 ) /IHF. 

1 IHA.IHB.IHI.IHD.IHC/ 

DATA KEYS( 1).KEYS(2) » KEYS ( 3 ) . KEYS ( 4) .KEYS(5) , KEYS( 6) /4HNEW , 

1 4HRUN .4HST0P»4HHIST»4HSAVE.4HE0IT/.KEYS(7)/4HPUNC/ 

DATA KT YP ( 1 ) . KTYP( 2) « KTYP ( 3) . KTYP ( 4) . KTYP ( 5 ) /4HPARM. 4HARCS.4HNQOE 
I 4HCNOD.4H0NE / 

DATA KN0.KYES/2HN0.3HYES/.1BLK/1H / 

DOUBLE PRECISION SUMI.SUM2 
C 

IF (J0MP.GE.2) CALL ERROR (-IOMP) 

NRUN= I 
KSSP=0 
ITED=0 
I CHNG=0 
I TFLG=0 
ICFLG=0 
EPS=. 00001 

C EPS IS THE THRESHOLD VALUE WITHIN WHICH 2 

C CQNSIOEREO TO BE TIED, OR TO HAVE OCCURED 

C THE PROGRAM CAN EASILY BE CHANGED SO TH.^T 

C SPECIFIED ON INPUT. IT IS ASSUMED THAT EVENTS El. E2. E3 SUCH 

C THAT TIME(e2)=TlME{ (El )+ePS, TT ME( E3 )=T IME ( E2 ) +SPS. ARE ALSO 
C CONSIDERED TO BE TIED ALTHOUGH TIME ( E3 )-TIME( El ) = 2«EPS. 

C 3Y DIVIDING THF INPUT VALUE OF EPS BY N, THEN AS MANY AS N 
C EVENTS CAN BE CONSIDERED AS TIED IN THE SENS SPECIFIED ON INPUT. 

DO 10 K=1 » 200 
WIOTH(K)=0. 

CONTINUE 

READ ( ICRD,14 i0 .ENO=1300 .ERR-=1300 ) K WORD* NOD , KH I S 
WRITE ( IPRT, I 400) 

DO 40 K=1 ,7 

IF ( KWORD.EQ.KEYS(K)) GO TO 60 
CONTINUE 

WRITE (IPRT. 1420) KWORO 
CALL EXIT 

IF (K.rO.B.OR.K.EQ.r ) WRITE (IPRT. 1430) K.WORD , NOD , KH I S 
IF (K.NE.3.AN0»K*NE.7) WRITE (IPRT.IAEO) KWOPO 
GO TO ( 130, 1290.50, 70,80. 90,80). K 


OR MORE EVENTS ARE 
"SIMULTANEOUSLY". 
THIS VALUE CAN SE 


10 

20 

30 

40 

50 

80 


00000012 

00000013 

00000014 

00000015 

00000016 

00000017 

ooooooia 

00000019 
00000020 
00000021 
00000022 
00000023 
00000024 
00000025 
00000026 
00000027 
00000028 
00000029 
00000030 
00000031 
00000032 
,00000033 
00000034 
00000035 
00000036 
00000037 
00000038 
00000039 
00000040 
00000041 
00000042 
00000043 
00000044 
00000045 
00000046 
00000047 
00000048 
00000049 
00000050 
00000051 
00000052 
00000053 
00000054 
0000005.5 
00000056 
00000057 
000 00 05 a 
00000059 
00000060 
00000061 
00000062 
00000063 
00000064 
00000065 
00000066 
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70 CALL 6REA0 
GO TO 20 

80 CALU GS AVE (NOD .KH IS • K » K>/ORO) 

GO TO ao 
90 1CHNG=1 
KSSP=0 
KSU8S-0 

WRITE (IPRTfl440) NAME 

100 READ (ICRD»I4l0fEND=1300tERR-l300) KWORD • NOD • KHIS 
00 110 K-lf5 

IF (KTYP(K) .EQ.KWORD ) GO TO 120 
no CONTINUE 
ICHNG=0 
GO TO 30 

120 WRITE (IPRTn430) KWQRO 

GO TO (630»700,220ni80* I40n K 
130 rTED=0 

c 

CARD TYPE NEW-1 
C 

140 READ ( I CRD f 1^+50 ♦END^ I 300 t ERR=1300 ) NAME . N PRT # NSNK • NSTS t MOD I » 1 GRF • 
1 NCNO^NCTS^NSBSf I DMP » I SED .NRNS . N3TR . NET^^ .TSTR .TETR. SCAL 
WRITE UPRTn460} NAME 
IF (NRNS^LE.O) NRNS-l 
IF (SCAL.EQ.O*) SCAL^l* 

IF (TSTR.GT.O. . AND.NSTR.GT.O) GO TO 160 
IF (TSTR.LE.O. .AND.NSTR.LE.O) GO TQ 160 
IF (TSTR.GT.O) GO TO 150 
TSTR=0> 

TETR^9999999P. 

GO TO 160 
150 NSTR=l 

NETR^NRNS 

160 IF (NPPT.EOi.0 • ) GO TO 170 

WRITE ( IPRT . I 47 0) NSNKt NSTS .MODI f I GRF .NCND .HCTS . NSOS . lOMP. ISED 
WRITE < IPRT. 1480) NRNS. NSTR .NETR t TSTR rTETR . SCAL 
170 IF (NETR.GE^NSTP) GO TO 180 
WRITE ( IPRT f 1490) 

ITED=1 

180 IF (TETR.GE.TSTR) GO TO 190 
WRITE < IPRT. 1490) 

ITF.D=1 

190 IF (NSSS*LE.10) GO TO 200 
WRITE C Ic»qT . 1 500 ) 

ITED=1 

200 IF (ICHNG.EQ.l) GO TO 100 
D O PA 0 r-l .IM N 
KST2( r )=0 
NTYPH( I)=0 
210 GQMTiNUr 
NSi<NDi=0 
NSKD-NSNK 

NSTO==NSNk-kNCNO v:".) 

NSTNa=NSTS 

NDRT=0 


) 

000 0006% 
000000681 
00000069 
00000070^ 
00000071! 
000 0 00721 
000000731 
00000074 
000000751 
00000076 
00000077 
00000078 
00000079 
00000080 
00000061 
00000082 
00000083 
0000008 4 
0000 008 E 
00000086 
00000087 
00000088; 
000 0 0Q69j 
00000090 
0000009l| 
000000921 
00000093] 
000 0 0094! 
00000095] 
00000096; 
00000097 
000000981 
00000099 
000001 00 , 
0000010 1 
00000 loa 
00000 10?| 
00000104^ 
00000105 
00000106 
oodooiotI 
000 001 oar 
0000010 9| 
000 001 1 d 
00000111 
000001 12 
0000 01 l4 
000001 1 4 
000 0 01 15 
00000116 
000 0 0 I I t ^ 
000001 
00000X19 ' 
0000 01 2q 
0000 0 12l! 
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HSTC:=NSHK-I-NCND 

e 

SINK KODB AND NOT A 
SINK AND OSLAY NODE 
STAT AND DELAY NODE 
C^m^*NSim—ST AT AND NOT EITHER 


DELAY NODE 


A DELAY OR 


AN 


ACCUMULATOR NODE 


CAA***NSTC — ACCUMULATOR NODE 
C 

NDT=0 

NNCN=0 

NSTST^O 

G 

C#A^**NOT — NUMBER OF DELAY TYPE NODES 
C4:AA*4«NNCN~NUMBER of ACCUMULATOR TYPE NODES 

C^it*tA^NSTST — NUMBER OF STATfSINKt AND ACCUMULATOR TYPE NODES 
C 

NQQ^O 

NSRC==0 

KSU0S-O 

IPASS=0 

NSSP=0 

KSSP=0 

JSRAF^O 

220 IF (NPRT.NE.O#) WRITE (IPRTtlSlO) 

C 

C*A*^#OATA CARO TYPE NEW-2 AMO 2B^ 

C 

230 READ { ICRDf l520fENO- l300tERR~1300 ) NDOE^ I NOUT • MRELl f MREL2 t PTDPT^ 
t PRMVf XLLf WIDH^MSINK^XLCf WIDC.NUNOD 
C 

Cr«»^;<c^^NOTE — THE LAST CARO OF THIS TYPE MUST HAVE »0» 


C 

C 

C 

C 

G 

C 

C 

c 


INOUT 

MSINK 

F 

A 

B 

r 

D 

c 


CODE I -SOURCE f 
KST3 


1 

2 

3 

4 

5 

6 


c 


ACTIVITIES 


ST AT 
ST AT 
STAT 
STAT 
STA T 
STAT 
COMING 


IN COLUMN 3 
2=SINK* 3=:STATf 4-MARK* 0=:OTMERWtSE 
DESCRIPTION 

NODE FOR 1ST STATISTICS 

NODE FOR ALL STATISTICS 

NODE FOR BETWEEN STATISTICS 

NODE FOP INCREMENT STATISTICS 

NODE FOR DELAY NODE STATISTICS 

NODE FOR ACCUMULATION NODE STATISTTCS 

INTO A O-NOOEr WE CANNOT HAVE COUMTER TYP-S 


SAME APPLIES TO ACCUMULATOR TYPE NODES 


IF (ICHNGiEQ.l . ANDuNOOE^EQi 
IF (PTOPT.EQ^PP ) GO TO 240 
IF (PTOPT.E0.8LK) pTOPT-DD 
IF (PTOPT.EO^OD) GO TO 240 
I TED- 1 

240 IF CMODn«EQ»0) GO TO 460 
NRR=0 

IF (KSUBS.GT.O) GO TO 540 
250 IF ( NOO .LT . NODE > NQQ^NOOE 
IF (MRELl.EQ.O) MRELl-1 
IF (MREL2«EQ*0> MREL2=1 
>4RELl (NPDE)-MRELl 
NREL2IN0DE) -MREL2 


0) GO TO 100 


00000122 
00000123 
00000124 
00000125 
00000126 
0000 01 2T 
00000128 
00000129 
00000130 
00000131 
00000132 
00000133 
00000134 
00000135 
00000136 
00000137 
00000138 
00000139 
00000140 
00000141 
00000142 
00000143 
00000144 
00000145 
00000146 
00000147 
00000148 
0000014 9 
00000150 
00000151 
00000152 
00000153 
00000154 
00000155 
00000156 
00000157 
00000156 
00000159 
00000160 
00000161 
00000162 
00000163 

00000164 

00000165 
00000166 
00000167 
000001 66 
00000169 
00000170 
00000171 
00000172 
00000173 
00000174 
00000175 
000001 76 




IF (INOUT.EQ.O) GO TO 420 
IF (ICHNG.LE.O) GO TO 260 
KKK=K3T2(M00E) 

GO TO 410 

260 GO TO (310.270»270.300) . INCUT 
270 NSTST=NSTST+l 

IF IMSINK.EO.ISLK) M$INK=MOATA( 1 ) 

DO 280 INPT=lf6 

IF (MSINK.EQ.MDATAIINPT) ) 60 TO 290 
280 CONTINUE 

WRITE (IPRT,IS30) NOOE.MSINK 
ITED=I 

290 IF (1N0UT.GT.2) GO TO 360 
GO TO 320 
300 KST2(N0DE)=-l 
GO TO 420 
310 NSRC=NSRC+1 

NSORC (NSRC) =NODE 
GO TO 420 

320 IF (INPT.LE.4) GO TO 350 
KKK=NSKO 
NSKO=NSKD-l 
330 NDT=NOT-M 
340 KST3(KKK)=INPT 
GO TO 400 
350 NSKMD=NSKND+1 
KKK=NSKNO 

IF (NSKNO.GT*NSNK) GO TO 390 
GO TO 340 

360 IF (INPT.LE.4) GO TO 380 
IF (INPT.GT.S) GO TO 370 
NSTD=NSTD+1 
KKK=NSTO 
GO TO 330 
370 KKK=NSTC 

NSTC=NSTC-l 

NNCN=NNCN+I 

IF (NSTC.LT.NSNK) GO TO 350 \ 

GO TO 340 
330 KKK=NSTN0 

NSTNO=NSTNO“l 

IF (NSTNO-NSNK.GE.NCND) GO TO 340 
390 WRITE ( I5>RT# 1340)- NODE 

ITED=1 * 

GO TO 420 

400 KSTl(KKK)=NOOc 
KST2(N00E)=KKK 
410 XLOW( KKK)=XLL 

WIOTHIKKK )=WIDH 
1SU3=KKK+NSTS 
XLOW( 1SU3)=XLC 
WIOTH( rSUB)=WIOC 

420 IF (NPRT.GT.O.) WRITE (IPRT.1S50) NODE. SRELi (NODE) fNk£L2 ( NOOE ) 
I PRMV.PTOPT.MSINK 
IF (ICHNG.EO.l) GO TO 230 
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000001771 
00000178 
00000179 
00000180: 
00000131 
00000182 
00000163 
00000184 
OOOOOIBS , 
00000186 
00000187 
0000018£ 
00000185 
0000019C 
00000191 
0000019E 
00000195 
00000194 
0000 01 9S 
00000196 
0000019V 
00000196 
00000194 
0000020d 
0000020 
00000202 
00000203 
00000204 
0000020^ 
00000206 
000002oi 
00000204 
000 002 0< 
000 0021 « 
0000021 f 
00000212 
00000213 

0000021 I 

000002li 

000 00 21 I 

000002li 
000 002 li' 
000 0021 I 

0000022f 
0000022 
000 0022; 
0000022: • 
0000022. 
0000022- 
0000022! 
OOOOO 22 I 
0000022; - 
000 0022;-‘ 
0000023! 

0000023: 
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IF (PRMV*EQ.HH) GO TO 440 
IF (ORMV.NE.AA) GO TO 430 
NR«=2 
GO TO 450 

430 IF (PRMV.NE.UU) '^O TO 450 
MRR=3 
GO TO 4S0 
440 NRRs:l 

450 IF (PTDPT.EQ.PP) GO TO 460 
NT0PT=1 
GO TO 470 
460 NT0PT=2 

470 NTYPE(NCDe)=2»NRR+NT0PT 
IF <KSSP.GT.I) GO TO 570 
GO TO 230 

480 IF (IPASS) 490 t 490,550 
C 

C4*4*4TEST if there ARE SUaSYSTEMS. 

C 

490 IF (NSBS,EQ.O) GO TO 610 
500 KSSP=0 
NNOSaO 
C 

C4A*^»0ATA card type NEV/-2A* 

Cj(c****P,EAD in SUOSYSTSM INFORMATION. 

C*4*4c4:NNSUB=NUMeER OF NODES IN PARTICULAR SUBSYSTEM. 
C*4*^#NSSP=NUM8ER OF TIMES PARTICULAR SUBSYSTEM OCCURS. 
CA4*#4NACTS=iNUM0£R OF ACTIVITIES IN PARTICULAR SUBSYSTEM. 
C 

READ ( ICRO, 1360.,END-1300,ERR=1300 ) NNSUB , N3SP .NACTS 
C 

C44*^t*TEST FOR ERROR CONDI T IONS. 

C 

IF (NNSUa.LE.99) GO TO 510 
WRITE ( IPP.Tf 1570) 

ITE0=1 

510 IF (NSSP.LE.aO) GD TO 520 
WRITE (iPRT,1580) 

ITE0=1 

520 IF (NACTS.LE.99) GO TO 530 
WRITE (IPRT, 1590) 

ITEO-X 
530 IPASS^l 

KSS»=KS3P+l ■ 

Ksuas=sK:su3s+i 

c ■ ■ 

C*44=4*ST0RE SUaSYSTEM INFORMATrCN. 

C 

MSUSKKSUSS.I )=KSUPS 
NSU8I {K5H;BS,2{=NSSP 
NSUBl(KSUBS,3)s=NNSUa 
NSU8I (KSU8S»4)=NACTS 

r 

WRITE OUT SUBSYSTEM HEADING, 


00000232 

00000233 

00600234 

00000235 
00000236 
00000237 
00000238 
00000239 
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OOOOQ241 
00000242 
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00000245 
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00000247 
00000243 
00000249 
00000250 
00000251 
00000252 
00000253 
00000254 
00000255 
00000256 
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00000259 
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IF (NPRT.GT.O.) write (IPRT,1600) ksubs,kssp 
GO TO 230 
C 

C+****REAO IN SUaSYSTEM NODE DATA. 

C^*!*A*ATHE last CARO OF THIS TYPE MUST HAVE A ZERO IN FIELD 1. 

C 

S40 NNOS=NNOS'H 
C 

C«»»*5t«STORe SUBSYSTEM NODE INFORMATION. 

CA»A*AST0-I ) AND MSTO-< ) ARE THE TEMPORARY ARRAYS WHERE THE NODE AND 
C**^*AARC INFORMATION NEEDED FOR SUBSYSTEM GENERATIGN IS STORED. 

C 

NSTOX (NNOS)*NOOE 

NST02(NN0S)=IN0UT 

NSTa3(NNDS)=MRELl 

NSTOAINNDS)=MREL2 ' 

ST01<NNOS)=PTOPT 

ST02(NN0S)-PRMV 

ST03(NN0S)=XLL 

ST04(NNDS)=:WI0H 

NST05 <nnds)=ms:nk 

STOSlNNDSIsXLC 
ST06(NNDS )=WIDC 
NST06(NNDS) =NUNOD 
C 

C**=«c*APRDCSSS NODE INFORMATION. 

C . ' ■ - ' ' 

GO TO 250 

550 IF (NNOS.EQ.NNSUB) GO TO 560 
WRITE ( IPRT. 1610) 

ITED=l 

C 

C**^:j<«TEST IF ALL SUBSYSTEMS OF THIS TYPE ARE GENERATED. 

C 

560 IF (KSSPiSQ.NSSP) GO TO 590 
NNDS=0 
KSSP=KSSP+l 
C 

C*=**«>!=GENERATE NSW SUBSYSTEM (NODE INFQRMAT I ON ) . 

C 

IF (NPRT.GT.O.) WRITE (IPRT.1600) KSUBS.KS3P 
570 IF (NNDS.EO.NNSUB) GO TO 560 
NN0S=NNDS+1 

NODE=NSTO 1 ( NNOS ) +NNSUa 
NSTOl (MNDS)=NODE 
IN0UT=NST02( NNDS) 

MREL1=NST03<NN0S) 

MRFL2=NSTC4(NNDS) 

PT0PT=ST01 (NNDS) 

PRMV=STQ2 (NNDS ) 

XLL=ST03(NNDS) 

WI0H=ST04 (NNOS) 

MSTNK=NSTqS ( NNDS ) 

XLC=STOS(NNDS ) 

WIOC=ST06 (NNDS) 
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OF POOR QUALITY 

■ A ' ^ ■ . if 




W,* . . . .‘.A ^ 

NUNOO=NST06 ( NNOS) 


00000342 

c 

• 


00000343 


❖PROCESS NEW SUBSYSTEM NODE INFORMATION. 


00000344 

C**y/t^^FiRST TEST TO SEE IF NODE INFORMATION IS TO 8E CHANGED, 

IF NOT 

00000345 

C**#*=APR0CE£D . IF SO, READ IN NEW DATA AND UPDATE VARIABLES, 

THEN 

00000346 

C***At^PROCEED. 


00000347 

c 



00000348 


IF (NUNOO-KSSP) 250,580.2S0 


00000349 

c 



00000350 

C*A*At*OATA CARO TYPE NEW-2C, 


00000351 

c 



00000352 

580 

READ ( I CRD, 1620, ENDS 1300, ERR=1 300) INOUT.MREL 1 ,MREL2,PT0PT,PRMV 

« 00000353 


1 XLL,WIDH,MSrNK,XLC,WIOC,NUNOO 


00000364 


NST06 (NN03)=NUN0D 


00000355 


GO TO 250 


00000356 

C 



000003S7 

<:♦*♦♦♦ IF ALL SUBSYSTEMS OF A PARTICULAR TYPE ARE PROCESSED, CHECK TO 

SEe0000035S 

C*t***IF ALL DIFFERENT TYPES ARE PROCESSED. IF ALL ARE PHOCESSEO, 

00000359 

C*J*t***PROCEED, IF NOT CONTINUE. 


00000360 

c 



00000361 

590 

IF (KSUBS.NE.NSBS) go to 500 


00000362 


IPASS=0 


00000363 


KSUBS=:0 


00000364 


KSSP=0 


0000036S 


IF (NCND.LE.NNCN) GO TO 600 


00000366 


WRITE CIPRT.I630) 


00000367 


ITEO=l 


00000368 

600 

IF (NSTS.LE.NSTST ) GO TO 610 


00000369 


WRITE (IPRT,1640) 


00000370 


rTEQ=l 


00000371 

61 0 

IF (NPRT.GT.O. ) WRITE (IPRT,1650) (NSORC ( J ) , J=1 ,NSRC ) 


00000372 


IF (NPRT.GT.O.) WRITE (IPRT.1660) (KST 1 ( K ) , K= 1 , NSNK ) 


00000373 


IF (NSNK.EQ.NSTS) GO TO 620 


00000374 


KPP=NSNK+1 


00000375 


IF (NPRT.GT.O.) WRITE (IPRT.IBTO) (KSTK K ) ,K=KPP , NSTS ) 


00000376 

620 

IM=IM1-1 


00000377 


MXC = 32 


00000378 


NPRMS=0 


00000379 

C 



00000360 

C*ti»:^AOATA CARD TYPE NEW-3. 


00000381 

c 



00000332 

630 

IF (NPRT.GT.O.) WRITE (IPRT,1680) 


00000383 

640 

READ (I CRO ,1690, ENOi^l 300, ERR= 1300) IPARS , ( PRAM ( J ) , J= 1 , 4 ) 


00000384 


IF ( ICHNG.EO. 1 .AND. IPARS. £0.0 ) GO TO 100 


00000385 


IF (IPARS, EO.O) GO TO 660 


00000386 


DO 650 J=1 ,4 


00000387 


PARM( IPARS, J )=PRAM(J) 


00000388 

650 

CONTINUE 


00000389 


IF (NPRT.GT.O.) WRITE ( T PRT , ITOO ) IPARS ,( PRAM ( J ) ,J= 1,4 ) 


00000390 


IF ( IPARS. LE.NPRMS) GO TO 640 


000,0 0391 


NPRMS=IPARS 


oof 00392 


GO TO 640 


00000393 

c 



0000 0394 

INITIALIZE NSET 


00000395 

c 



00000396 
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660 K0L=77777 
K0=’=a388a 
MXl=IMl+IM3+2 
MX2=2*(MXl-l )+l 
IN0X=0 

00 670 J=1,ID 

iNDX=lNOX+MXl 
NSET( INOX)=INOX+l 
NSETl INDX-1)=INDX-MX2 
670 CONTINUE 

NSET( rM14-IM2+U-0 
NSET{ 1N0X)=K0F 
00 680 1=1.10 
MSTN<1 .1 )=0 
M3TN( I ,2)=I+1 
680 CONTINUE 

MSTNI IO.2)=K0F 
DO 690 K=1.N0Q 
M3T(K)=0 
NQ(K)=P 


MFE(K)(tO 
MLE(K)'pO 
690 COW^INUE 
NFm= 1 
?^f^AN=l 
NOTL=NSKD+l 
N0TU=NSKD+N0T+NCND 
NCNL=NSTC+l 
NCNU=NC NL +NCND- 1 
C 

C*****<MRITE MAIN HEADING AND INITIALIZE STATrSTICAL POINTERS 
C 

NCLT=NSTS*(NCTS+2)+2 

NHIST=NSTS^2+2 

700 IF (MPPT.ST.O. ) WRITE (IPRT. 17101 
NUACT=0 


C#nt*<8«DATA CARD TYPE NEW-4 AND 4A. 

C 

710 READ ( ICRO. 1720»END=1300 ,ERR=1300 ) ATR 1 5 ( I ) . JO . ( J TRI 3 ( JK ) « JK = 1 
1 IM) ,ATRI3(3) ,ATRiB(4> ,NUACT,JTRIB(6) .TRNK 
IF (ICHNG.EQ.l .ANO.JQ.EQ.O) GO TO 100 
(JTPTB( 3) .EO.O ) JTRr8(3)=10 

ATR 13 Cl )=l .0 
JGRAF=1 
JGRAF=1 


IF 

IF 

IF 

IF 


(ATRIBC I ).LE.O. ) 
(ATRI8(3) .GT.O. > 
(ATRia(4) ,GT.O. ) 
ATRI3(2) = 0. 

ATRIBtS )=0. 

IF (JQ.EQ.O) GO TO 
J0=IA8S(JQ) 

IF (KSU3S.GT.0) GO TO 930 


910 


C««44^PR0CESS arc INFORMATION, 
C 

720 JD=JTRIS(3) 



0000 0397*1 

00000398; 

00000399 

00000400 

00000401 

00000402 

00000403 \ 

00000404 

00000405 

00000406 

00000407 

00000406 

00000409 

00000410 

00000411 

00000412 

00000413‘ 

00000414 

0000041Sj 

00000416' 

000 00417) 

00000418 

0000041^ 

000 0 04201 

0000042 tj 

00000422 

0000042^ 

00000424) 

0000042^ 

00000426 

00000427) 

0000042E 

00000429 

00000A3(i 

00000431 

00000433 

00000433 

00000434 

0000043? 

0000043c 

00000437|, 

000 0 043 4 - 

000 0 043 <1 

0000 044 O 

0000044* 

0090044? ' 

0000044:| 

03000444 

0000044? 

000 0044<) 
00000441 
000 0 044v- 
0300044*; 
0000045< 

000 0045’: 
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^OfwROOJ? 


PAGE IS 
QOALITY 


IF (JO.EO.IO) GO TO B40 
IF (JO.EQ.13) CO TO 340 
J=JTRIB(2) 

IF (J.GT.O) GO TO 730 
JTR1B(2)=-JTRIB(2) 

GO TO 840 

730 IF (OAPMlJ»4.) .GE.O.O ) GO TO 740 
WRITE (IPRT»1730) J 
GO TO 040 

740 GO TO {a40*a40»a40»840»7s0»a40?7p>0.790*800*a40.ai0t820ta40) « JO 
750 PARM( J«4)=AL0G( (PARMK J»4)/PARMiJ* I ))*424-I .0) 

PARMI J.l)=ALOG<PARMC J»l ) )“.54FARM< J.4) 

PARMI J,4)=SQRTCPARM( J.4) ) 

IF (PARMI J»2)»6T.0.) GO TO 760 
PARMI J,2)=-l .0820 
GO TO 770 

760 PARMI J.2)=AL0G(PARM( J.a) ) 

770 PARM< J.3)=AL0G(PARM( J,3) ) 

GO TO 830 
780 CALL BETAXF 
GO TO 830 

790 TEMP=PARM( J«4)*W2 

PARM( J,4)=PARM( J, 1 )>S»«2/TEMP 

P ARM ( J, 1 )=PARM<J« 1 ) /TEMP 

GO TO 830 , . 

300 CALL PERTXF 
GO TO 830 

810 PARMI J,4)=PARM( J.3)-PARM(J,2) 

PARM< J, l)=(PARM( J» 1 ) -PARM( J.2 ) )/PARM( J.4 ) 

GO TO 830 

820 PARM< J» I )=l ./PARM( J. I > 

PARM( J.4>=1 ./PARM< J,4) 

830 PARM( J»4)=-PARM<J f 4) 

340 IF (ICHNG.LE.O) GO TO 870 
IF (IRNK.EQ.O) 1RNK=1 
INOX=NFINO( JTRIB( i ) . JQ. 1 . IRNKl 
IF (INOX.EQ.O) CALL ERROR U3) 

00 850 K=1 , IM 1 

NSET< IN0X)=JTRI8( K) 

INOX=INOX+l 
S50 CONTINUE 

OO 860 K=2» IM2 

OSET ( INOX+l )=ATRia(K ) 

INDX=INOX+t 
860 CONTTNUF 
GO TO 900 
870 KCOLN=MFA 

CALL FILE-M C JQ) 

JJ=JTRI8( 1 ) 

IF (NTYOE( JJ) .LE.4) GO TO 900 
NDRT=1 

MFANT=MSTN(MFAN«2) 

IF (MST(JJ).FQ.O) GO TO 830 
MSTN{MFAN»2)=MST( J J) 

GO TO 090 


00000452 

00000453 

0000045A 

00000455 

00000456 

00000457 

00000458 
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00000462 
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00000489 
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00000491 

00000492 
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00000495 

00000496 
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00000498 

00000459 

00000500 

OOOOOSOl 

00000502 

OOOOOS03 

00000504 

00000505 

00000506 
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800 MSTN(MFAN »2)=:K0L 
890 MSTN{MFAN. I )=KCCLN 
MST( JJ)^MF\N 
MFAN-MFANT 
C 

C^^t^c^WRITE INDIVIDUAL ARC* 

C 

900 IF (NPRT#GT#0e) WRITE (IPRT,1740) JQ^ ( JTR IB( JK ) t JK=1 t IM) t ATR1B( I 
I ATRIBO) .ATR IBCA)* JTRIB <6) 

IF {KSSP#GT.l) GO TO 940 

GO TQ no 

C 

C4^4*^TEST to see IF THERE ARE SUBSYSTEMS^ 

C 

910 IF (IPASS.GT.O) GO TO 960 
IF (NSBS^EQ.O) GO TO 1010 
920 KSSP-0 

kacts^o 

IPXSS^l 
KSSP=KSSP+1 
KSU3S=KSU8S-f 1 
C 

C^«3*t4c4t WRITE SUBSYSTEM HEADING# 

C 

IF (NPRT#GT.0») WRITE (IPRT,1600) KSUBStKSSP 
GO TO 710 
C 

C##^*#READ ARC OF SUBSYSTEM. LAST CARD MUST HAVE A ZERO IN FIELD 1# 

C 

930 KACTS^KACTS+l 
C 

C«^*3«e4ST0RE SUBSYSTEM ARC INFORMATION# 

C 

NSTOl (KACTS)-=NUACT 
STOl (KACTS)=ATRia( I ) 

NSTn2(KACTS)-JQ 
NST03(KACTS)=JTRIE( 1 ) 

NST04(KACTS)^JTPI6(2) 

NSTQ5(KACTS)=:JTRie{3> 

NST06(KACTS)=JTRIB(4) 

NSTQ7(KACT5)=:JTPI8<5 ) 

ST02(KACTS)=ATRia(3) 

ST03(KACTS)=ATRIB(4) 

NST08(KACTS)=:JTRIB(6) 

GO TO 720 
C 

C^m^^TEST IF ALL OF PARTICULAR SUBSYSTEM’S ACTIVITIES APF IN. IF MOT. 

GENERATE NEXT ONE. 

C 

940 IF (KACTS#EQ.MSU8I(KSUBSf4)l GO TO 990 
950 KACTS=KACTS+1 

J|Q=NST02(KACTS)+NSUB 1 (KSUBS.3) 

MSTG2 (KACTS)-JQ 
ATRIBf I )-STOl (KACTS) 

JTR IB ( I )^NST03 { KACTS )+NSU81 (KSUaS r3) 


00000507 
00000508 
00000509 
00000510 
00000511 
00000512 
00000513 
f 00000514 
00000515 
00000516 
00000517 
00000318 
00000519 
00000520 
00000521 
00000522 
00000523 
00000524 
00000525 
00000526 
00000527 
00000528 
00000529 
00000530 
00000531 
00000532 
0Q000S33 
00000534 
00000535 
00000536 
00000537 
00000533 
00000539 
00000540 
00000541 
00000542 
OOOOOS43 
00000544 
00000545 
00000546 
00000547 
Q 00 00548 


I 

i 


f 

f 


00000549 

00000550 

00000551 

00000552 

00000553 

00000554 

00000555 

00000556 


OOOOOSSTi 

00000558 


000 0 0659:: 
000 005 6 d 
000 0056 IL 
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NST03(KACTS)-JTRI8(1 ) 

JTRIB(2 )=NST04(KACTS) 

JTR 13 ( 3 ) -NST05 ( KACTS > 
JTRIfl(4)=NST06(KACTS> 

JTRI8(5 )=NST07< KACTS ) 

ATRIB(3)=ST0?.(KACTS) 

ATRI0(4)=STQ3(KACTS) 

NUACT=NSTOJ (KACTS > 

JTRIB(6 )=NSTOa(KACTS ) 

IF ( JTR1B(6) «LE.O ) GO TO 960 
JTRI8(6 )=JTRrB(6)+NSUBI(KSUaS,3> 
960 NST03<KACTS)=JTRIB(6) 


C«;**44tpR0eeSS NEW SUBSYSTEM ARC INFORMATION 

C#«i**=|tFlRST TEST TO SEE IF ARC IS TO BE CHANGED. IF NOT PROCEED, 
C44**4rF SO READ IN NEW DATA AND UPDATE VARIABLES AND THEN PROCEED. 

C 

IF (NUACT-KSSP) 720,970,720 
C 

C«***^OATA CARD TYPE NEW-48. 

C 

970 READ ( ICRO, 1750,END=1300,ERR=1300 ) ATR 18 ( 1 ) , < JTR I 8( JK ) . JK=2 , IM ) , 
1 ATRIBC3) ,ATRTa( 4) ,NUACT, JTRIB(6) 

NSTOl (KACTS) =NUACT 

IF ( JTR1B(3),EQ.0) JTRIB(3)=10 

IF (ATPIB( I ).LE.O.) ATRIB(1>=1.0 

IF (ATR IB(3) .GT.O..OR.ATRIB(4).GT.O. ) JGRAF=l 

GO TO 720 

980 IF (KACTS.EQ.NSU0I (KSUBS.4) ) GO TO 990 

c 

all subsystem activities not read in correctly ♦ 

ERROR MESSAGE. 


WRITE {IPRT»1760) 

ITED=l 

99Q IF (KSSP^EQ^NSUBI (KSUBS^2) ) GO TO 1000 
KACTS==0 

C 

C«^:(:Hc*GENERATE new sugsystem. 

c 

KSSP=KS3P+l 

c 

C4:^*4:*WRITE new subsystem HEADING AND THEN GcMERATE NEXT SU3SYS TEM . 
C 

IF (NPRT^GT.O.) WRITE CIPRT^I600) K5UBS%K3SP 
GO TO 930 
C 

C**^:(c^SEE if all SUBSYSTEMS GENERATEO* 

C ■ 

1000 IF (KSUaS.N£.NSBS) GO TO 920 

c 

C^:|c«jCc<cTE5T PR08A3ILIT1ES AND PROCEED* 

C 

KSUBS:=0 

1010 OG 1090 JQ=2fNOQ 












10 20 


1030 

1040 

1050 

1060 
10 70 

1080 

1090 
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QUAunv 


PROQ=0*0 
L INE=MF5( JQ) 

IF (LINE. LE. 01 GG TO 1090 
NT=NTYPS( JO) 

IH-LINEf tM 


IQ=:IE+l 

OPROB-QSETt IQ) 

GO TO (1040f 1030 1 1040 *1030 f 104^0 *10 30. 1040.1030 ) • 

QSET ( I Q )=QSET( IQ ) +PROB 

PROB=PROB+DPROa 

rNOX=LINE4*IMl*MM2+l 


L1NE=NSET( INOX) 

IF (LINE-77777) 1020.1060.1050 
WRITE (rPRT.1770) 

CALL EXIT 

GO TO ( 1090. 1070. 1090. 1070. 1090. 1070. 1090. 1070 ) ♦ 
IF < PR08.lt. .998) GO TO 1080 
IF ( PROS. LE. 1.002 ) GO TO 1090 
WRITE (IPRT.1760) JQ 
ITED=1 
CONTINUE 


MM AC T=: 100 
DO IIOQ Jsl.HMACT 
NPO( J)=0 
1100 CONTINUE 

IF (MOOI.LE.O) GO TO 1170 

IF (NPRT.GT.O.) WRITE (IPRTfl790) 

NPOS=0 

1110 NPOS-NPGS+l 

c 

C:^*^#*OATA CARD TYPE NEW-5 . 

C 


NT 


NT 


READ (ICRO.ia00.ENO=130O.ERR=1300) NACTN.NABYA 
IF (NaCTN) 1270 »l 160 . I 120 
1120 NPG(NACTN)=NPQS 
1130 OD 1 140 1-1.24,2 

IF { NABYA ( I ) .LE.O ) GD TO 1150 
NASA <NPOS)-NABYA{ I ) 

NA9A (NP0S+-1 ) -NA8VA( T+1 ) 

*<NT1 = I-Hl 
NPQS=NPnS+2 
I 140 CONTINUE 
I 1 50 nab A( NPOS) -0 

IP (NPRT.GT.O.) WRITE (IPRT . 13 10 ) NACTN , ( NAB YA ( J ) . J- 1 .KNT 1 I 
GO TO 1110 
1150 NA8A(NP0S )=0 
C 

C4>r^44«0ATA CARD TYPE NEW-6. 

C 

1170 IF (NCNO.LE.O) GO TO 1250 

1 180 R EAD ( r CRD .1520 . END- 1 300 .ERR= 1 300 ) T2 .C2 , XLT i , V?TT I .XLCI .WTCl 
I ITFLG.TCFLG 
NWWW=NHIST-1 
XLOW(NWWW)=:XLTl 
WrDTH(NWWW)=WTTl 
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00000630 
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00000634 
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00000636 
00000637 
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00000641 
00000642 
00000643 
00000644 
00000645 
00000646 
000006471 
00000643 
00000649 
00000650 
00000651 
00000652 
00000653 
00000654 
00000655 
00000656 
00000657 
0000 065S 
000006591 


000 0 06 60’ 
00 00 066 1| 
00000662 
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00000665 
000 006 6 ei 

00000667j 

0000066a 

00000669 
000 0 067 Gj 
000 0 067)1 
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XL0W(NHIST)!=XLC1 

000 0 0;j672 


W10TH(NHIST)-SWTC1 

000 0<)673 


IF (ITFLG.NE.O) ITFLG=2 

00000674 


IF (ICFLG.NE.O) 1CFLG=2 

00000675 


IF (WTCl.GT.O.) GO TO 1190 

00000676 


IF (NPRT.GT.O.) WRITE (IPRT.I830) 

00000677 

1190 

IF tWTTl.GT.O*) GO TO 1200 

00000678 


IF (NPRT.GT.O.) WRITE <IPRT,1840) 

00000679 


K=KNO 

00000680 


IF (ITFLG.NE.O) K=KYES 

00000681 


IF (NPRT.GT.O.) WRITE (IPRT.1850) K 

00000682 


K=KNO 

00000683 


IF (ICFLfe.NE.O) K=KYES 

00000684 


IF (NPRT.GT. 1.) WRITE (IPRT, 1860) K 

00000685 

1200 

IF (T2.EQ.0.0) GO TO 1210 

00000686 


IF (T2.LT.0.0) T2=0.0 

00000687 


IF (NPRT.GT.O.) WRITE (lPRTil870) T2 

00000688 


GO TO 1220 

00000689 

1210 

T2=-1.0 

00000690 

1220 

IF (C2.EQ.0.0) GO TO 1230 

00000691 


IF (C2.LT.0.0) C2=0.0 

00000692 


IF (NPRT.GT.O.) WRITE (IPRT. 1880) C2 

00000693 


GO TO 1240 

00000694 

1230 

C2=-l.O 

00000695 

124 0 

IF ((T2.GE.O.O.GR.C2.GE.O.O).AND.NCNO.LE.O) GO TO 1250 00000696 


GO TO 1260 

00000697 

1250 

T2=-1^0 

00000698 


C2=-l.O 

00000699 

1260 

IF (ICHNG.EQ^i) GO TO 100 

00000700 


GO TO 20 

00000701 

1270 

NPQS-NPOS-l 

00000702 


GO TO 1130 

00000703 

1230 

CALL ERROR (95) 

00000704 


GO TO 20 

00000705 

C 


00000706 

initi al. IZE FOR THE NEXT RUN 

00000707 

c 


00000708 

1290 

TNOW=0.0 

00000709 


IF ( lOMP .£0 . 1 . OR . I DMP .EG . 3 ) CALL ERROR ( - I DMP ) 

00000710 


IF (ITED.EQ.O. ) GO TO 1310 

0000071 1 


WRITE ( IPRT. 1390 ) 

00000712 


GO TO 20 

00000713 

1310 

DO 1320 L=1 .NSTS 

00000714 


CSTUS(L)=0. 0 

00000715 


XSTUS(L)=-1.0 

000 0 071 6 

1320 

CONTINUE 

00000717 


RNUMsRANF(lSED) 

00000718 


00 1330 r=l ,NCLT 

00000719 


SUMl ( I )=0.D0 

00000720 


SUM2(I)=0.D0 

00000721 


SUM3(I)=0. 

00000722 


SUM4(I )=1.0E20 

00000723 


SUMS ( l )=-l .0620 

00000724 

1330 

CONTINUE 

00000725 


IF (NHI ST) 1280.1360.1340 

00000726 


no 


tf. 
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8* , 'DMP =* t I3»/15X . 'SEED FOR 
1480 FORMAT ( I SX*' NUMBER OF RUNS 


t 

2 


/ISX.'RUN NUMHER TO BEGIN 


INITIAL RANDOM NUMBER: ISEO =»,I10) 

TO END THE SIMULATION: NRNS.=*,llO, 

tracing: nstr =‘tiio/i5x. 


•RUN NUMBER ','TO END TRACING: NETR ='.I10./15X, 

3 *TIME TO BEGIN TRACING: TSTR*,' = * s F 1 0 . 0 , / i 5X . 

4 »TIMF TO END TRACING: TETR =» *F I 0 . 0/ 1 5X t • SCALE • . 

5 • FOR CONSTANT TIMES: SCAL =*jFIO.O/J 

1490 FORMAT (» INPUT ERROR: NETR < NSTP t OR TETR < TSTR') 

ISOO format (/lOXt 19HNSBS EXCEEDS LIMIT/) 

1510 format (//,42X. ‘44N00E DESCRIPTrON44* ,//,SH NC0E» 4X, 6HNUM8EP ,SX * 

1 ISHNUMSER OF RELEA SES . 4 X , 5HA=AN0 . 1 1 X « 6H0UTPUT , 4X , 

2 16HSTATIST1GS TYPE /8X « SHRELEASES. 6X * 4HF0R .6HRFPEAT .5X . 

3 17MH= HALT , U=A U H» 3X , 4HT YPE/ ) 

IS20 FORMAT ( 4 1 3 . 2A 1 . 2F 6. 2« A 1 . 2Fl 0 . 4 , T 3 ) 

1530 FORMAT (• INPUT ERROR. NODE '.IS,* HAS AN ILLEGAL STAT. CODE*. •, 
1 At) 

1540 FORMAT ( /5X , 4HNCDE t I 4 , 6 1 H CAUSES NO. OF STAT / SINK NODES TO EXC 
ID THE NO. SPECIFIED.) 

1550 FORMAT ( 1 X 1 1 4. I 9 . I 1 8 . 13X . A I . 1 3X .A 1 , 1 4X , A3 . A4 , 14 ) ' 

(313) 

(/lOX.kOHNNSUB LIMIT EXCEEDED/) 

(/lOXt I 9HNSSP LIMIT EXCEEDED/) 

(/VOX ,20HNACT3 LIMIT EXCEEDED/) 

(//ISX.iSHSUBSYSTEM TYPE . I5,9X.5HGDPY ,13//) 


1340 DO 1350 KsltNHIST 
DO 1350 L=liMXC 
JCELS(K,L)=0 
1350 CONTINUE 

1360 IF (NPPMS.LE.O) GO TO 1380 
DO 1370 I=1,NPRMS 

PARM( I,4)-ABSCPARM( 1,4) ) 

1370 CONTINUE 
1380 00 1390 K=l,NSTS 
KST4(K)=0 
1390 CONTINUE 

IF (NPRT.GT.O.) WRITE <IPRT,1400) 
RETURN 


1400 FORMAT (I HI) ' 

1410 FORMAT (A4,2I4) 

1420 FORMAT (///IX,24H UNRECOGNIZABLE KEYWORO= , IX , A4 ) 

1430 FORMAT ( >, X , A 4, 1 X , IS . 3X, 2HAS , 1 5) 

1440 FORMAT ( / , I X, 3 ( IH* ) , • ED IT GRASP SIMULATION PROJECT : • , IX , 20A4 ,/ ) 
1450 FORMAT ( 20A4 , / , 51 3 ,/ . 41 i 0 , 3F1 0 . 0 > 

1460 FORMAT (» GRASP SIMULATION PROJECT : ',20A4) 

1470 FORMAT ( /42X , 23H*4NeTWGRK DESCRIPT I0N4*/ ,/ . 1 5X, 

1 'NUMOER OF SINK NODES: NSNK =• , 1 3/1 5X , • STA • , 

2 'TISTICS COLLECTED ON: NSTS =*»I3,» NODES. »/15X, 

3 'ARE THERE MOO I F • , • IC AT IONS IN THE NETWORK?: MODI =*,I3/15X, 

4 'TYPE OF HISTOGRAMS •.•TO BE COLLECTED: IGRF =',I3/15X, 

5 'NUMBER OF ACCUM. NODE TYPES',*: NCNO =',I3/ISX, 

6 'NUMBER OF COUNT TYPES: NCTS =', 13/ 1 5X NUMBER • , 

T • OF SUBSYSTEM TYPES: NSBS =• , I 3/1 5X , • DUMP ING OF FILES OPTION: 


0000072 7j 
000 007231 
00000729 
00000730 
000 007311 
00000732| 
00000733 
00000734 
00000735 
00000736 
00000737 
00000733 
00000739 
00000740 
00000741 
00000742i 
00000743 
00000744 
00000745; 
0000074d 
00000747 
00000748 
00000749. 
00000750 
000007Sl| 
0000075^ 
00000753 
000007S4I 
0000075S 
I 0000075^ 
00000757 
00000758 
0000075< 
0000 076 G 


000 0 0761] 
0000076 

0000076:i| 

0000076^ 

0000076? 


1560 
1570 
1530 
1590 
1600 
161 0 


FORMAT 

FORMAT 

FORMAT 

•^^CRMAT 

FORMAT 

FORMAT 


(/10X,31HALL SUBSYSTEM NODES NOT READ IN/) 


00000766 
0000076/1 
00000766] 
0000076 
0000077(| 
00000771 
0000077^ 
EE0000077.'; 
0000077< 
0000077? 
0000 0 77 ( . 
000'^ 077 j 
000 0 077i /] 
0000077'/ 
000^0 078 ^^ 
0000078 
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1630 FORMAT (3X #31 3 » 2Al «2F6. 2. A 1 »2F10 .4 1 13 ) 

1630 FORMAT (/5Xy36HALL ACCUMULATION NODES NOT PROCESSED/) 

1640 FORMAT (/SX.AaHALL SINK AND STATISTIC NODES NOT PPOCESSED/) 

1650 FORMAT f/lSX 1 1 9HS0URCE NODE NUMBERS/ ( 1 7X , 1 0 1 5 ) ) 

1660 FORMAT (/ I 5X . 1 7HS INK NODE NUMBERS/C17X* 1 0 15) ) 

1670 FORMAT ( / ISX . 34HSTATXSTICS COLLECTED ALSO ON NQOES/( 17X.20t5) ) 
1680 FORMAT (//39X.23H4T ARC PARAMETERS A*//I6X#9HPARAMETER ,32X . 

I 10HPARAMETERS/17X.6H SET ♦ 1 6X 1 1 HI # 13X . 1H2 « 13X ♦ 1M3 # 1 3X # IH4/ ) 
1690 FORMAT (I3#4F10.4> 

1700 FORMAT (1X.T20#7X#4F14.4) 

1710 FORMAT {//42Xi24H44 ARC DESCRIPTION **//3X.SHSTART,2X#3HEN0«3X 

1 9HPARAMETER»2X#12H0ISTRIBUTI0N.2Xt5HC0UNT.2X.8H ARC ,2X . 

2 I 1HPR0BAQIL1TY.4X# 5HSETUPfSX#8HVARIA8LE.4X. 

3 ISHASSOCIATED C0ST/4X , 4HN0DE . 2X » 4HN00E ♦ 4X # 6H SET »7X.4HTYPE»7X 

4 4HTYPE»3X.6HNUM8ER.18X»4HCOST.SX.4HCOST#11X,6HC-NOOE/) 


1720 FORMAT 
1730 FORMAT 
1740 FORMAT 
1750 FORMAT 
1760 FORMAT 
1770 FORMAT 
1780 FORMAT 
I DO NOT 
1790 FORMAT 
1 


1800 

FORMAT 

1810 

FORMAT 

1820 

FORMAT 

1830 

FORMAT 

1840 

FORMAT 

1850 

FORMAT 

1850 

FORMAT 

1870 

FORMAT 

1880 

FORMAT 

1890 

format 

1 

• IN 


(FB.3.6I3,2F9.2#2I3*23X,I2) 

(/lOX. 13HPARAMETER SET, IS# 3X#22HWAS MODIFIED ONLY ONCE) 
r IX. 15# I7f 110,11 1,21 10 #F 13* 4#2F1 I .2,HX»T3) 
(F8.3#6X#4I3,2F9.2,2I3) 

(/10X#36HALL SUBSYSTEM ACTIVITIES NOT READ IN/) 
<///36X#26HERR0R EXIT, TYPE 70 EPPOR. ) 

</SX,4HNaDE,I4#59H HAS OUTPUT BRANCHES WHOSE PROBABILITIES 
SUM TO ONE./) 

{//39X#2SH*ANETW0RK MOO IF ICATIONSA*// IX, 8H ARC ,12(1X, 
9HNOOE NOOE)/9X,I2{ IX,9H0UT IN )/) 

(2513) 


( IX, 14, 2X, 12( 15,15) ) 

(2FI0.4,2F6.2,2F10.4.2I2) 

(/5X,41HC-N00e TOTAL COST 
(/5X,41HC-NC0E TOTAL TIME 
</5X,37HWILL T2 CRITERION 
(/5X,37HWILL C2 CRITERION 
(////15X,22HT2 VALUE FOR C-NOOE IS.SX.FIO.A) 
(//15X,22HC2 VALUE FOR C-NOOE IS»5X»F10.4) 

(/,• DATA SET CANNOT BE PROCESSED 8ECAUSE OF AN ERROR* , 
THE DATA OR IN THE NETWORK MODEL*) 


HISTOGRAM HAS NO 
HISTOGRAM HAS NO 
END SIMULATION 
END SIMULATION 


VALUES) 
VALUES ) 
RUN-, A4) 
RUN-. A4) 


END 


NENDISO), JJJ(50), NCR(300), NRP(300), 


SUBROUTINE GASP 
DIMENSION NSETISeoO) 

I KOUNT(250) 

COMMON QSET(S600) 

COMMON /Gl/ MFA ,MXC, IPRT, ICRD ,IW1 , IM2 ,NAXQS ,NT2R.NC2R* 
1 NP.UN.NRNS, ISE0»TMQW,ATRTB(6) ,JTRI8(6) ,NAME(20) ,JCELS 
COMMON /G2/ MFE(300) ,MLE (300) ,NO (300 ) ,PARMU00,4) , SUM 1 
X SUM2(300) .SUM3(300) ,SUM4(300) ,SUM5(300) ,NT2C2,EPS 
COMMON /G3/ KSTK 100 ) , XLOW ( 200 ) , NREL I ( 300 ) ,NR£L2 ( 300 ) , 
I MREL(300) ,KST4( 100) ,KST3 ( 1 00 ) , NT YPE ( 300 ) ,WlDTH(200) , 
COMMON /G4/ XSTUS( 100) , SUMCT, CSTUS( 1 00 ) , NCNO ,NCNL , NCNU 
1 ITFLG, ICFLG,TYYY,TCCC,TIMTD,G£iSTO 
common /G5/ MS TN ( 200 0 ,2 ) , MST ( 300 ) t KST2 ( 30 0 ) ♦ I GRF , JGR AF 
COMMON /G6/ NGEL(IO) ,PROB ( 32, 10 ) , VAL ( 33, I 0 ) , ISEC(3,10) 
1 KHIST.NPNCH 

COMMON /G7/ ID,IMN,IOMP,NOTU,NSKO ,NSTR,NETR»TSTR,TETR, 
1 NSORC(l00),NPa(100).MABA(200) 


NOQ.NSNK, 
(200,32) 
(300) , 

NRELOOO ) , 

NS rs, Nets 
»r 2 ,c?, 

,SCAL 

.MAX.NHIS* 
NSRC,NDRT , 
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00000782 

00000783 

00000784 

00000785 

00000786 

00000787 

00000783 

00000789 

000007SO 

00000791 

,00000792 

00000793 

00000794 

,00000795 

00000796 

00000797 

00000798 

00000799 

oooooaoo 

00000801 

00000802 

00000803 

00000804 

oooooaos 

000008Q6 

00000807 

00000808 

00000809 

oooooaio 
0000081 1 
00000812 
00000813 
00000814 
00000815 
00000816 
00000817 
"000 0 0818 
OOOOOOOt 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
0000 0008 
00000009 
000000 I 0 
000 0001 1 
00000012 
00000013 
00000014 
00000015 
00000016 
00000017 
00000018 


n n 
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EQUIVALENCE (NSET( I ) .QSETI 1 ) ) 

DOUBLE PRECIS JON SUMl •SUM2 

C 

DO 10 MU=l,IMl / 

JTRTB(MU)=0 
10 CONTINUE 

00 20 M=liIM2 {\ 

ATR1R(M)=0. ' 

20 CONTINUE 

00 30 I-L.IMN 
NRELKD^O 

NREL2<I)=0 V 

30 CONTINUE 

DO 40 I=l t 100 
KST4( I)=0 
KST3(I)=0 
KSTin)=0 
00 40 J=l»4 

PARMdt J)-0 
40 CONTINUE 

C INITIALIZE ISIMX=MAX1MUM VALUE FOR 1SIM=MAX1MUM NUMBER OF TIED 
C EVENTS THAT CAN BE MANDLE0=0IM€NS10N OF NEND=tOO 
ISIMX=50 

C MAXRP IS EQUAL TO 3 ♦ THE MAXIMUM NUMBER OF NODE REPLACEMENTS. 
MAXRP=300 
CALL DAT IN 
TIMTO=0.0 
C0STO=0.0 
TCCC=0.0 
TYYY=0.0 
NT2R=0 
. NC2R=0 
NT2C2=0 
XHIST=0 

NCLT=NSTS!*'(NCTS+2 ) +2 
MCLT=NCLT-NSTS-2 
C 

initialize for this run of the SIMULATION 


SO DO 60 MU=1 » IMl 
JTRIB(MU)=0 
60 CONTINUE 

00 70 M=i,IM2 
ATRia(M)=0. 

70 CONTINUE 

CALL FI LEM (1) 
TN0W=0. 

DO SO 1= If MAXRP. 3 
NPP(I)=0 
NRPCI+l)=I-3 
NRP< I+2)=I+3 

80 continue 

NRP(MAXRP)='l 

NRP(2)=MAXRP-2 

IPl-l 


000000191 

000 0002-0 I 

Q000002I. 

00000022 

00000023 

00000024 

OOOQ002S 

00000026 

00000027 

0000002a 

00000029 
00000030 
00000031 
00000032 
00000033 
00000034! 
0000003Sj 
000000361 
000000371 
00000038' 
00000039! 
00000040f 
000000411 
00000042, 
00000043) 
00000044! 
0000004S| 
00000046; 
00000047; 
00000043 
00000049) 
00000050- 
00000051 
000000S2 
000000S3 
00000054 
000000S5 
OOOOOOS6 
00000057 
0000005S 
000 00059, 
OOOOOO 60 I 
00000061 
00000062 
00000063 
00000064 
0000 006e| 
00000066 
00000061 
0000006^ 
ooooooef 

0 00 0007C 
00000071 
00000072 
00000073 


I 

i 
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90 

too 


110 


120 


'Uo 


NSTSRsl 

IF (NCTS#LE#0) GO TO 100 
DO 90 J=1*NCTS 
KOUNT( J)?=0 
CONTINUE 
DO UO X’J=:2fN0Q 
NDR<IJ)-0 

MREL< IJ)=:NREL1 (IJ ) 

NREH r J)=NREL1 U J ) 

CONTINUE 
SUMCT=0 .0 
ARCST=:0. 

TOLD-0* 

ITRACE^O 

IF (NSTR>LE^NRUN*AND .NRUN*tE#NETR) ITRACE=1 
1TRG=1 

IF (TSTR*GT#0^) GO TO 120 
IF (NSTR^GT.O) ITRC=2 
GO TO 130 
ITRC=3 

IF (NSTR*GT*0) ITRO=4 

IF {ITRACE.eQ* I ) WRITE (IPRTfl020) NRUN 


EVENT WHICH IS FIRST eNTRY IN PILE I 
JTRIB(l) IS THE END NODE 


C^*t*5*tOBTArN NEXT 
TIME# 

C 

NDSP=0 
NEQT=0 
140 ISlM=sO 
ISO ISTMsISIM^U 
KCOL-MFE{ 1 ) 

CALL RMOVE (KCOLtl) 

IF (<ATRI8(1)-TN0W)#LE#EPS) GO TO 160 
NOSP=JTRIB( I ) 

NEQT=1 
GO TO 170 
160 NEQT=NEOT-M 

IF (NEOt.LT.lOO > GO TO 170 
WRITE (rPRT*1030) NDSPf NEQT •TNOW 
CALL ERRdrtJ <10 ) 

170 TNQW^ATRT8( I ) 

GO TO ( 200 r200^ I80rl90) t ITRC 
180 ITPACE=tO 

IF {TN0W.GT*T£TR) go TO 200 
IF ( TNOW^LT.TSTR) go TO 200 
ITRACE=l 
GO. TO 200 
190 ITRACE^O 


ATRia< 1) IS 
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00000074 

00000075 

00000076 

00000077 

00000078 

00000079 

00000080 

00000081 

00000082 

00000083 

00000084 

00000085 

00000086 

00000067 

oooooose 

00000089 
00000090 
00000091 
00000092 
00000093 
00000094 
00000095 
00000096 
00000097 
00000098 
00000099 
OOOOOlOO 
OOOOOIOI 
00000102 
00000103 
00000104 
00000105 
00000106 
00000107 
00000103 
00000109 
00000110 
000001 11 
00000112 
0000 0 I 13 
000 00 1 14 
00000115 
000001 16 
000001 17 

000001 la 
00000119 
00000120 
00000121 


200 


IF (NRUN*GT.NETR) 

GO 

TO 

200 

00000122 

IF <NRUN«LT.NSTR) 

GO 

TO 

2 00 

00000123 

IF (TNOW.GT.TETR) 

GO 

TO 

200 

00000124 

IF (TNOW.LT.TSTR) 

GO 

TO 

200 

00000125 

T TRACES 1 




00000126 

NENDI ISIM)=JTRIS( ll 



00000127 

JJJ( I3IM)=JTR IB{5> 




00000123 
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270 


c 

END NODE IS ZERO START NETWORK BY SCHEDULING ACTIVITIES 
C«*^Jt'#FRQM EACH SOURCE NODE 
C 

IF (NENonsiM)) 250*210.230 
210 DO 220 Nsl.NSRC 
MkNSORC(N) 

CALL SCHAT (M) 

MReL(M)=NREL2(M) 

NREL(M)-=NREL2(M) 

220 CONTINUE 
GO TO 140 
C 

CW***#REDUCE release count (MREL(NEND( ISIM) ) ) BY I IF ARC NUMBER IS 

,ge. zero, if negative, increase by (-JTRIBIS)) 

c 

230 IF { JTRIB(5) .GS.O ) GO TO 240 

MREL(NEND( ISIM) )=MREL (NENO ( I S IM ) } -JTR 1 0 ( 5 ) 

GO TO 250 

240 MRELINEND { ISIM ))=MREL{NENO< ISIM) )-l 
250 LL=0 

L=JTRI3(4) 

IF IL.LE.O) GO TO 260 

LL=KQUNT(L)+l 

KOUNT(L)=:LL 


C 

CA**A*CHECK FOR TRACE ON THIS RUN 
C 

260 COSAR=SUMCT“ARGST 
DUP=TNQW-TOLD 

IF ( ITRACE.EQ. I ) WRITE (IPRT.1040 ) 

1 LL.MRELfNENDdSIM) ) .COSAR.OUR 
ARCST=SUMCT 
TOLO=TMOW 
C 

C<!*«**ARC has been COMPLETED. IF A C^NODE 
Gif'* 44=!' ARC. UPDATE THE C-NODE RUNNING COST. 
C 

IF ( JTR1B(6) .LE.O) GO TO 270 
KQ=JTRia(6) 

KK=K3T2 (KQ) 

COST= ATR 13(3) + A T R 18(4)4 
LCLT=MCLT+KK 
CALL COLCT (COST.LCLT) 

LCLT=NSTS+KK 
CALL HISTO (COST.LCLT) 

ATRIB(6)=0.0 
IF (ITFLG.EQ. 3. 

270 IF (MEND (ISIM). 

IF (MFE( 1 ) .EQ.O) 
rNEXT=MFE( 1 ) +6 
TIMEI=QSET( INEXT) 

IF ( ISIM.GT. ISIMX) 

IF 


00000129 
00000130 ' 
00000131 
00000132 : 
00000133 i 
00000134 
000 00 135 
00000136 
00000137 
00000138 I 
00000139 I 
00000140 I 
00000141 I 
00000142 
00000143 [ 
00000144 ■ 
00000145 
00000146 I 
00000147 ; 
00000148 
00000149 
00000150 : 
00000151 ' 
00000152 i 
00000153 
00000154 
00000155 ; 
00000156 [ 
00000157 
00000158 

TNO W , JTR I a ( 5 ) , ( JTR I B ( N ) . Ms I . 4 ) , 0000 0 1 59 f 

00000160' 
00000161 
00000162 
00000163 

IS ASSOCIATED IVITH THIS 00000164 

00000l6sl 

00000 I 661 
000001 67| 

oooooisal 

000001691 
oooooiToi 

00000 1 71 1 
00000172 
000 0 0173 
00000174 
00000175 
000 00176* 
00000177 
000 00178; 
000 00179’ 
000 00 I 80 
OOOOOlBl' 
00000132 
00000182 


(TN0W-ATRia(6) ) 


GR. ICFLG.EG.3) GO TO 860 
LE.O) GO TO 140 
GO TO 280 


CALL ERROR (98) 
( (TIM£1-TN0W)«LE.EPS) go to ISO 


C 
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REINITIALltEE THE RELEASE COUNTERS FOR OVERFLODEO NODES. 


2ao 00 300 t=lilSIM 

IF (NREL(NEMO( I)) .GE.O) GO TO 290 
IF IMREMNENOI I ) ) .LT.NRELINENDI I) ) ) 
GO TO 300 

290 IF (MRELINENDI I )> .GT.NREL(NENDU) ) ) 
300 CONTINUE 

C*****NETW0RK MODIFICATION SECTION 


MREL(NEND(1))=NREMNENDC I ) 
MRELI NENDI I ) ) -»NREL(NENO( I ) 


C 

C 

C 

c 

c 

c 

c 


FOR EACH NODE IN 

terminate at the 

A replacement of 
OF TIED ARCS ONE 


THE NETWORK GO THROUGH ALL THE ARCS THAT 
SAME TIME. FOR EACH ARC. IF ANY. THAT TRIGGERS 
THIS NODE BY ANOTHER ONE. GO THROUGH THE LIST 
MORE TIME. IF AN ABC THAT TRIGGERS THE OPPOSITE 


REPLACEMENT CAN BE FOUND, THEN THE REPLACEMENT 
CANCELED. OTHERWISE THE REPLACEMENT HOLDS. 


OF THE NODE IS 


GO TO 460 


DO 470 N=2.N0Q 

DO 460 1 = 1. I SIM 
Jl=JJJ( I ) 

IF ( Jl, LE.O) 

NP1=NP0<J1) 

IF (NPI.LE.O) GO TO 460 
310 ND0UT=NABA(NP1 ) 

IF (NOOUT.EO.O) GO TO 460 
IF (N.NE.NDOUT) GO TO 450 
NDINl=NABA(NPl+l) 

DO 340 I 1 = 1, IS IM 
J2=JJJ(II) 

IF (J2-LE.0) 60 TO 340 
NP2=NPD(J2) 

IF (NP2.LE.0) GO TO 340 
320 NDIN2=NABA<NP2+I ) 

IF (NOINa.LE.O) 60 TO 340 
IF (NDIN2.NE.ND0UT) 60 TO 330 
IF <NABA(MP2).EQ.NDINU GO TO 
330 NP2=NP2+2 

GO TO 320 

340 CONTINUE 


450 


C 

C 

C 

c 

C 

c 

c 

C 

C 

c 

C 

C 

c 


IF THE OUTPUT OF NODE N IS TO BE REPLACED BY THE OUTPUT OF ONE 

OR SEVERAL NODES UPON ITS RELEASE THEN NOR(N) POINTS TO THE 

LOCATION IN NRP{.) WHERE THE FIRST REOLACING NODE IS LOCATED. 

IN OTHER WORDS N WILL BE REPLACED BY NODE NRP(NDR(N)). IF THERE 

IS MORE THAN ONE REPLACEMENT THEN NRP(NDR)+2 POINTS TO THE NEXT 

REPLACING NODE, OTHERWISE IT IS ZERO, ETC. IP I IS A POINTER 
INDICATING THE LOCATION OF THE FIRST AVAILABLE GROUP OF 3 CELLS 
IN NRP(.). IPI+1 POINTS TO THE PREVIOUS AVAILABLE CELL AND 
IPl+2 POINTS TO THE NEXT ONE. THE WORKING MECHANISM CF MRP(.) 

IS THE SAME AS IN QSET/NSET. WHEN ENTRIES ARE INSERTED CR 
DELETED FROM NRP(.) POINTERS ARE UPOATEO ACCORDINGLy. 

IF (MOR(N) .GT.O) GO TO 420 

N0R(N)=IP1 

NRPMPi )=N0IN1 

NRP(NRP( IPl+l)+2)=NRP(I01+2) 


0000013A 
OOOOOISS 
000 00 1 SB 
00000187 
>00000188 
000001 B 9 
> 000 001 90 
00000191 
00000192 
00000193 
00000194 
00000195 
00000196 
00000197 
00000198 
00000199 
00000200 
00000201 
00000202 
00000203 
00000204 
00000205 
00000206 
00000207 
00000208 
00000209 
00000210 
0000021 1 
00000212 
00000213 
00000214 
0000021 S 
00000216 
00000217 
00000218 
00000219 
00000220 
00000221 
00000222 
00000223 
00000224 
00000225 
00000226 
00000227 
00000228 
00000229 
00000230 
00000231 
0000 0232 
00000233 
00000234 
00000235 
00000236 
00000237 
00000238 


N. o il ^ 


1 M|I| M . . l«.. fllimi 
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NRP(NRP( IP1+2)>1 )==NRPMP1^M ) 
NRP< IPl^ l )==0 
^Pl=^4PP( tPl+2) 

NRP(NOR(N)-4-2)=:0 

CHECK IF IT IS HOT A PEVEPSE PEPUACEMENT* 
350 JpsNORCNOlNl ) 

360 IF (JP*£0*0) GO TO 450 

IF (NRP< JP) 4Ea.N) GO TO 370 
jP= 5NRO< jp+2) 

GO TO 360 
370 NRP( JP)^0 

IF <NRP( JP^2>.GT*0j GO TO 390 

IF (NRP< JP+n*GT*0 ) GO TO 410 

NDPINDIMI )^=0 
380 NRP( JP‘f 2)s:IP l 

NPP( JP+1 )=NRP( IPl+l) 
NRPdPl^lV^JP 
IPt=JP 
GO TO 450 

390 ^ IF (NRPf JP+l ) •GT.O ) GO TO 400 

NOR < NO INI )-NRP( JP+2) 
NRPrNORiNOXNl ) + l) :=0 


GO TO 380 

400 NRPCNRPC JP*f I )>2)=NRP( JP+2) 

NPP(NRP( JP+2)+l )=NRP( JP+1 ) 


GO TO 380 

410 NRP < NRP ( JP+1 )V2)~0 

GO TO 380 

420 IF (NRP(NDR(N) > •Ea.NDINl ) GO TO 450 

IP2=N0R<N)+2 

430 IF (NRP( IP2) •EQ.O ) GO TO 440 

IF (NRP<NRP( IP2)) .EQ^NDINI) GO TO 450 
TP2^NRP< lP2)+2 
GO To 430 

440 NRPC IP2 )-IPl 

NRP ( IPl )=NDINl 

fslpd. ( ( I p I + 1 1 ^2 ) =NRP ( I P 1 + 2 ) 

MRP (NRP < IP 1+2) +U«NRP (I Pl+1 ) 

TP1=NR^( IPlr2) 

NRPIMRPI IP2I+1 I-IP2-2 
NPPCMP«=^ ( > +2)=0 

GO TO 350 

C . ' ■ ■ 

450 NP1=HP1 +2 

GO TO 310 
460 CONTINUE 
4TO CONTINUE 

c- ■■■ 

DO 840 I IS IM : 

c ■ ■■ , , 

C3^++i|s^QcLAY AND «XCCUMULATOR NODE SECTION 
G ; 

K=KST2 (NENO ( II ) ) 

IF <K.LE.NSKD«DP»KtGT^NDTU) GO ID 480 
IF (XSTUS(K)^GE.O) GO TO 480 


00000239 j 
00000240 I 
00000241 , 
00000242 
00000243 
00000244 
0000024S . 

000 0 0246 I ^ 
00000247 I 
000 0 0248 I 
00000249 I 
00000250 
00000251 
0000 0252 I 
000 0 0253 I 
00000254 f 
00000255 : 
00000256 
00000257 
00000258 
00000259 ^ 
00000260 i 
00000261 
00000262 
00000263 
00000264 
00000265 
00000266 
00000267; 
00000268 f 
00000269] 
000 0 027 0 I 
00000271 
00000272 
00000273 
00000274 
00000275 
00000276 
00000277 
00000273 
00000279 
00000280 
000002Ql' 
00000282 
00000233 
000 002 84 1 
00000285 
00000286 
00000287 
000002881 


00000289 

00000290 

00000291 

00000292 

00000293 


i 



i 
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XSTUS<K)=TNOW i, 

IF (K.GH.MCNL.ANO.K.LE.NCNU) GO TO 430 
CSTIJS < K ) aCSTUP ( DUM ) 

IF (NRFL(NEND( I I) ) .LT.O) GO TO 490 
IF (MREL(NENO( I I) ) ,GT.O) GO TO 840 
60 TO 510 

IF (MReL(NEND(in ) ) 840.5I0*510 


C44*4*MARK NODE SECTION. 

C, 

500 ATRIB(2)=TN0W 

ATRI8(5)=CSTUP(DUM) 

NTaNTYPcINENDUI) ) 

GO TO 560 

510 MREl. (NEND( II ) )=NREL2(NEN0(II )) 

NREL(NEND( I I) ) =NREL2 ( NENO( 1 1 ) ) 

C 

C4****TEST to see IF STATISTICS ARE TO BE CaLLECTED ON THE NOOE 
C**4*4N00E HAS BEEN RELEASED. 

C 

IF (K.EQ.-l) GO TO 500 
IF (K.EQ.O) GO TO 530 
JSKA=iAas(KST3(K} ) 

IF (KST3(K)) 680.530,520 
520 IF < KST3(K) .GT. 1 ) GO TO 660 
GO TO 670 

530 NT=NTYPE(NEND( 1 1) ) 

IF (NT.LE.4) GO TO 560 
KK=MST(NEND< II ) ) 

540 INDX=.MSTN(i<K,l ) 

IF {NSET(INOX).LT.O) NSET ( I NOX )a-NSET I INDX ) 

KK=MSTN{ KK, 2 ) 

IF (KK.LT. 77777) 60 TO 540 
K=MFEU) 

IF (K.EQ.O) GO TO 560 
550 INDX=K 

NTT=IAaS(NSET( INOX ) ) 

IF (NTT.EO.NENDd D) NSET( INDX ) =NTT 

NTT=INDX+IM1+1M2+ 1 

K=NSET(NTT) 

IF (K.LT. 77777) GO TO 550 

560 GOTO (610.610,570,570.610.610.570 ,570) , NT 

570 ATRBB=ATRI8(2> 

CTR8B=ATRI5v'5) 

530 KCOL-aNFlNO ( NEND( 1 1 ) . 1 . 1 , 1 ) 

IF (KCDL.LE.O) GO TO 600 - 

CALL RMOVE (KCCL.l) 

C ' 

C***44ReM0VAL OF EVENTS. ADO COSTS ACCRUED TO DATE FOR C-NOOE 
C4****M0NtT0RE0 COST ACTIVITIES. 

c ' , ■ 

IF ( JTRIB( 6) .LE.O ) GO TO 590 
K0=JTRIB(6) 

KK=KST2(K0) 

C0ST=ATR13(3)+ATRIB(4)#(TNdw-ATRia(6))^^^^^^^^^^^^^ 
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LCLT=MCLT+KK OF POOR ’QUALITY 

CALL COLCT (COST»LCLT) 

LCLT=NSTS+KK 

CALL HISTO {COST.LCLT) 

ATRIB(6)=0.0 

IF ( ITFLG.EQ.3.0R< ICFLG.EQ*3) GO TO 860 

590 SUMCT=SUMCT-(ATRIB< I )-TNOW )»ATR1B< 4) 

GO TO 580 

600 ATRIB(2)=ATRBB 

ATRI8(5)=CTRBB 

610 NaDE=NENDI II ) 

NNN=NDR(NODE) 

IF fNNN.NE.O) GO TO 630 
IF (NQ(NOOE)) 850.840.620 

620 CALL SCHAT (NODE) 

GO TO 840 

630 NODE=NRP(NNN) 

IF (NOR(NODE).EQ.O) GO TO 640 
NNN=NOR{NODE) 

GO TO 630 

640 IF (NQ(NOOE) .LE.O) GO TO 650 

CALL SCHAT (NODE) 

650 NNN=NRP(NNN+2) 

IF (NNN.EQ.O) GO TO 840 
GO TO 630 

660 KST3(K)=-KST3(K) 

KST4(K)=KST4(K)-H 
GO TO 630 

C 

C****+REDtlCE SINK NODE COUNT BY ONE. COLLECT STATISTICS. 

C 

6T0 KST3(K)=0 

630 IF (K.GT.NSNK) GO TO 690 

NSTSR=NSTSR-I 

690 IF (JSKA.EQ.O) GO TO 720 

GO TO {720.720,730.740.700.700), J5KA 

C 

C-44«**0ELAY AND ACCUMULATOR NODE STATISTICS 

C 

700 YY=TN0W-X3TUS( K) 

XSTUS(K)=-l .0 
IF (K.LT.NCNL) GO TO 710 

IF (K.GT.NCNU) GO TO 710 

COST=CSTUS(K) 

C5TUS(K)=0.0 
GO. TO 750 

710 CCC=CSTUO(OUM) 

COST=CCC-CSTUS(K) 

c‘ 

so TO 750 

C**^44FIRST OR ALL STATISTICS 

C : 

720 ¥V=TNOW 

COST=C5TUPt DUM ) 

GO TO 750 
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(I 


I C*^^>^#BetWEEN STATISTICS 

tc 

il 730 YY=TNaW-XSTUS(K) 

I CCC=CSTUP(OUM) 

j COST-CCC-CSTUS ( K ) 

; GSTUSCK)=:CCC 

I XSTUS{K)=TNOW 

* IF ( YY-TNO«r) 750* 750 *830 

, C 

INCREMENT STATISTICS 

G 

740 

i 750 

I 

1- 

\ 

I' 760 

i 770 
i C 

; CT4T^^CDUNTER STATISTICS 
LINE^MFE( 1 ) 

IF ( LINE. LE^O) GO TO SIO 
INDX=LINE+IMI 

IF {TNnW.NE.QSET( INDX) ) GO TO 310 
INDX=LINE+3 

IF f NSET< INDX) .LE.O) GO TO 800 
L^=NSET< INDX ) 

XauNT ( L )=KOUNT (L.) + 1 
NSET{ INDX)=0 
JLINE=LINE-f IMI -HM2+1 
LINE^NSETC JLINE) 

IF (LINE.LT.77777) GO TO 790 
on 820 I=rl *NCTS 
NL=NL+l 
XC=KdUNT(I) 

CALL CHLCT (XC*NL) 

CONTINUE 

IF C ITFLG.EQ.3.0R .ICFLG.£a.3) GO TO 360 

: C^*^-^^TEST TO SEE IF SIMULATinN RUN IS COMPLETE. 

.. C; ",;.' 

IF CNSTSR) 850*860*530 
840 CONTINUE 
GO TO 140 

850 CALL ERROR (22) 

c- 

j NETWORK HAS BEEN SIMOLATEO ONE MORE TIME. 


I C 


780 

790 


800 


610 


S20 

830 


C 


YY=TNO W-ATR I B ( 2 ) 
COSTsCSTUP { DUM ) -A TR IB ( S I 
GALL HISTO {VY*K) 
NL=K4-(K-l )4NCTS 
CALL COLCT ( YY * NL ) 

IF (K.LT.NCNL) GO TO 760 

IF (K.LE.NCNU) GO TO 770 

LCLT=MCLT+K 

CALL COLCT (COST*LCLT) 

LCLT.=NSTS+K 

CALL HISTO (COST*LCLTr 
IF (NCTS) 830*830*780 
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ANY C-NODES, COLLECT PUN STATS AND CONTINUE t OTHERWISE SKIP 
C,lcjiMtc4£*THlS SECT ION 4 
C 

860 IF (NCNO.LE^O) GO TO 910 
XT1ME=0#0 

xcnsT=:o#o 

00 370 KXK=NCNL»NCNU 

MXM=KXK+ < KXK- 1 ) #NCTS 

LXL^MCLT-t-KXK 

XT IMEsiXTI ME4-SUM 1 ( MXM ) 

XCOST=XCQST>SUM I { LXL ) 

C 

any C-NQDE is still ACTIVE* UPDATE STATS TO FINAL VALUES* 

C 

IF ( XSTUS(KXK) *LT*0. ) GO TO 870 
TYYYsrTYYY'f ( TNOW-XSTUS( KXK) ) 

370 CONTINUE 

C 

C+^^5*c4rXTIME — ^ACCUMULATED TIME IN C-NODES TO DATE. 

.C^^^^J^txcOST — ►ACCUMULATED COST IN C-NOOeS TO DATE. 

CiOt^<c4c^icTIMRN— TIME IN C-NODES FOR THIS RUN. 

— COST IN C-NOOES FOP THIS PUN. 

C^a^4i:«c:(icTlMTD — OLD TIME-TO-OATE IN C-NODES. 

C*###*C0ST0 — OLD CaST-TO-OATE IN C-NOOES. 

C*3^^3}<:<cTYYY ACCUMULATIVE TIMES OF STILL ACTIVE C-NOOES AT END OF RUNS 

C<t**^*TGCC— ACCUMULATIVE COSTS OF STILL ACTIVE C-ND0E5 AT END OF RUNS 
C7|r%#*^UPDATE COSTS FOR ANY COST ARC MONITaPEO BY A C-NODE. 

C 

LINe=MFE(l) 

IF (LINE.LE.O) GO TO 900 
600 1ND0X=LINE+IMI 

IF (QSET( INOQX+5) .LE.O. ) GO TO 890 

TCCC=TCCC-*-QSET ( INDGX+2) +QSETC IN0QX*^3 ) * < T NOV/-QSET ( I NDOX-I-S) ) 

390 ISUe=LINE+I:Ml + IM2 4-l 
LIME=NSETIISUB) 

IF < LINE. LT. 77777) GO TO 880 
900 XTIME^XTIM54-TYYY 
XCOST=XCOST+TCCC 
C , 

C4=««^i^CALCULATE TIME AND COST OF C-NODES OF THIS RUN AND THEN 
^UPDATE TIME AND COST TO DATE. 

C 

TIMRN=:XTIME-T I MTO 
COSRN=XCaST-COSTO 
TIMTD^XTIME 
COSTO^XCOST 

c , , 

Cii?^4t^^UPDATE C-NODE RUN TIME AND COST STAT VARIABLES. 

C 

KXKK-NCLT-l ^ 

CALL COLCT (TIMRN.KXKK) 

HHtST-HSJS^Z^Z 

MXKK=NHIST-1 

CALL HISTO (TIMRN*MXKK) 
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CALL COLCT (COSRN*NCLT) 

CALL HISTO (COSRNfNHlST) 

910 DO 940 K=1»NSTS 

IF (KST3(K)) 920#930f940 
920 K5T 3 ( K ) =-KS T 3 ( K ) 

GO TO 940 
930 KST3(K)=1 

940 CONTINUE 

TP (NOPT^EQ.O) GO TO 960 
INDX=l 

DO 950 K=l^IO 

NSETC INDX)=rABSCNSETC INDX) ) 
IN0X=INDX-MM1+IM241'I-1 
950 CONTINUE 
960 DO 970 M=lfNSTS 
XSTUS(M)=-l . 

970 CONTINUE 


INITIALIZE FOR ANOTHER RUN BY REMOVING ALL EVENTS FROM EVENT 

and resetting network values* 

C* 

980 IF (NQ(l)) 850rl000f990 
990 KCOL=MFetl) 

CALL RMOVE (KCOLtl) 

GO TO 980 
C 

C**:f<t^TeST TO SEE IF ALL RUNS HAVE BEEN MADE. 

C 

1000 IF (NRM$<^LE.NRUN) GO TO 1010 

HRUN::if^^RV>>l 
<50 TO 50 




1.010 CALL SUMRY 
RETURN 


G 

C 

e 


1.020 FORMAT (y//AQX EVENT TRACE FOR RUN’ ^IS,* ^4:' ,///. 

1 ■ END OF • * ARC* *4X ♦ • ARC* f 4Xf ’END* t3X» •PARAM. • »2X * • OISTR. « * 2Xf 


2 ’COUNT’ f 8X 0 * RELEASE * ,8Xt ’ ARC’ f I 2X* ’ARC < • / ♦ 4X * • T I ME • , 6X , ’NUMBER • 

3 

4 


2Xt ’NODE’ »3X, ’TYPE’ v4X, ’TYPE’ ^3Xf ’TYPE = ( 
•COST’ *9Xf ’DURATION’ ^/) 


) ’ t 2X » * COUNT ’ .9Xi 


1030 FORMAT (//t* NODE ’*I3f’ MAY BE TRAPPED IN AM INFINITE LQOP.’t/, 

1 • THERE ARE *.I3^’ SIMULTANEOUS ARC COMPLETIONS AT TIME 

2 FIO *2) 

1040 FORMAT ( 1 X • £ 12 • 6 * I X * 1 4 » 2 1 7 , 2 1 B f 17 * 18 • 2 (4X, El 2* 6 > ) 

END 

SUBROUTINE FI LEM (JO) 

D I MENS TUN N SET <560 0) 

COMMON Q5ET(5o00) 

COMMON /Gl/ MFAtMXCf IPRT. TCRD.IMl f IM2fMAXQSrNT2RfNC2RfN0QfNSNKr 
I NRUN,NRNSflSED/TN0WtATRIB(6)*JTRIB(6>.NAME<20) »JCELS(200f32) 
COMMON /G2/ MFE(300) •MLE(300) ♦NQ(300) ,PARM( lOOf 4) ,SUMl(300) » 

1 SUM2(300) tSUM3(300) .SUM4(300)»SUM5(300) ♦NT2C2.EPS 

COMMON /G3/ KSTU 100 ) *XLdWT200l.MPELl <300 ) f NFEL2(300I rNREL(30a) , 
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% 

1 iMRELOOO) »KSTA( 100) fKST3W'O0) ♦NTYPE (300)fW lDTH<aOO) f NSTSfNCTS 
EQUIVAUENCH < NSET ( I ) , QSET ( 1) ) 

DOUBLE PRECISION SUM1*SUMH 

C 

C***#+TEST TO SEE IF THERE IS AN AVAILABLE COLUMN FOR STORAGE 
C 

IF (MFA^LE.MAXQS) GO TO 10 
WRITE (IPRTtlTO) 

C 

CALL ERROR (37) 

C 

ATTRIBUTE VALUES IN FILE 
C 

10 INDX^MFA 

DO 20 I^lflMl 

NSET( TNDX)=JTRIB{ I ) 

1N0X=TN0X+1 
20 CONTINUE 

00 30 r = UIM2 

QSET( INDX)=ATRieC I) 

INDX=IN0X+1 
30 CONTINUE 

MFEX=MrE(JQ) 

KNT«2 

I NDX=MF A+ I M 1+1 M2+ 1 
' NXFA=NSET( TNDX ) 

MLE^-MLE(JO) 

IF ; LEX) 40*SO»90 
40 CALL ERROR (88) 

50 INDX-MFA+IMI+IM2 
NSET( INOX )=99999 
MFE<JQ)~MFA 
60 INDX-INDX+l 

NSETC INDX )^77777 
MLE(JQ)=MFA 
70 MFAsNXFA 

IF (MFA#Gc.88a33) GO TO 80 
INDX=MFA+IM1+IM2 
NSFT( lNDX)-99999 
80 NQ( JQ)=NQ( JQ)+1 
RETURN 

90 INDXl =MFA+IMl 
INDX2^MLFX+IMI 
IF (JQ.GT. 1) GO TO 100 

IF (QSETC INDXI }-QSET( IN0X2) ) 160»^20*M0 

100 IF (Q5ET( INOXl ) •GT*QSET( INDXH) ) G0 TO 160 
HO IN0X=MLEX+IMl + TM2+l 
MSU=NSET(INOX) 

NSeT( 1NDX)-MFA 
INDX=MFA+IMI+IM2 
^ ^ N^^^ 

IF (KNT.EQ.2 ) GO TO 60 
INDX^MFA+IMl+IM2+l 
NSETC INOX )-MSU 
INDX-MSU+IM1+IM2 
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il 


j 


>CE*OI GO TO 


NSET( INOX)*MFA 
GO TO 70 

120 IF ( JTPI9(5) .LT.O) GO TO 130 

IF (MRF.L(JTRI8{ l)).N5.l ) GO TO 140 
ATRI9< I )=ATRI8( 1 )+EPS 
QSETl INOXI )=ATR IB( I J 
GO TO 110 

130 IF (NREL( JTRIB( 1) ) .GE.O .OR. (MREL< JTRI8( I ) )-JTRIB< 5) ) 

140 

ATRIBI I )=ATRIB( I )-EPS 
QSETdNOXl ) =ATRIB( 1 ) 

GO TO 160 

140 IF (NSET( INDXl-2) .LT.O) GO TO ISO 

IF <MREL(NSET( lNOXl-6)) .NE.l) GO TO 160 
QSETt IN0X2)=QSET( 1NDX2)+EPS 
GO TO 160 

150 IF ( NREL ( NSET { I NDX 1-6 ) ) . GE . 0 .OR . C MHEL ( NSET ( I NOX I -6 ) ) -NSET < INOXl- 
1 2)).GE.O) GO TO 160 

QSET( IN0X2)=QSET( IN0X2)-EPS 

GO TO no 

160 KNT=1 
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I NOX=MLEX+ r.M 1 + I M2 

MLEX=NSET ( I NDX I 

IF (MLEX.NE. 99999) GO TO 90 

IN0X=MFA + IMmM2 

NSET( INDX)=99999 

MFE(JQ)=MFA 

INDX=MFA+IMl+IM2+l 

NSET( INDX)=MFEX 

I NOX=.viFEX + IM 1 -n M2 

NSETt INDX)-MFA 

GO TO 70 
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170 FORMAT (//24H OVERLAP SET GIVEN BELOW/) 

END 

G 

SUBROUTINE SCHAT (NODE) 

DIMENSION NSETlSeOO) 

COMMON QSET( 5600) 

COMMON /Gl/ MFAtMXC, IPRT . ICRD, IMl , IM2.MAXQSt NT2R .NC2R .NOO.NSNK. 

1 NPUN . NRNS . r SED . TNO W . ATR I B ( 6 ) . JTR 18 < 6 ) . NAME ( 2 0 ) . J CELS (200.32) 
COMMON /G2/ MFE(300) , MLE ( 300 ) , NO( 300) ,PAR.M{ 10Q,4) . SUM U 30 0) , 

1 SUM2(300) .SUM3(300).SUM4(300).SUM5(300) ,NT2C2,EPS 

COMMON /G3/ KST1(100).XLOW(200).NPEL1 (300).NREL2(300).NREL(300) ♦ 
1 MREL (300 ) ,KST4( 1 00 ) ,KST3 { 100 ) . NTYPE ( 30 0 ) VW lOTH ( 200 ) .NSTS.NCTS 
COMMON /G4/ XSTUS( I 0 0 ) . SUMCT. CSTUS ( 1 00 ) , NCND » NCNL . NCNU . T2 . C2 » 

I ITFLG. ICFLG.TYYY.TCCC.TIMTO.COSTD 
EQUIVALENCE ( NSET ( 1 ) , QSET< 1) ) 

DOUBLE PRECISION SUM1.SUM2 
C 

C**44*NEXT IS LOCATION OF FIRST ENTRY IN FILE OF ACTIVITIHS WITH START 
C*****nQOE- mode. NT IS THE NODE TYPE. 

C' 

I 1 1=0 
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ommM- PA« « 


NT=NTYPE(NODE) 

NEXT=MFE(MODE) 

IF (NEXT.LE.O) GO TO 80 
GOTO (20.10.20,10,20,10.20*10), NT 
C 

c*****generate a random number RNUM. 

c 

10 RNUM=RANF( ISEO) 

C 

C**;<t**TEST IF DETERMINISTIC OR PROBABILISTIC NODE. 

C 

20 GO TO (30,90,30,90,30,90,30,90) , NT 
30 DO 40 1=1, IMl 

INDX=NEXT+1-1 
JTRia( I )-=NSET( INDX ) 

40 CONTINUE 
C 

C***440BTAIN SAMPLE FOR ARC. 

C 

CALL SAMPL (DEV) 

ATRIBCl ) = TNOW4-OEV 
1N0XQ=NEXT+IM1+2 
ATRIB(3)sQ3ET( INOXQ) 

ATRIB(4)=0SeT( lNDXQ+1 ) 

SUMCT=SUMCT+ATR IS < 3)-+DEV5KATRI BXA ) 

IF ( JTRIB(6).GT.O ) ATRl B ( 6 )=TNOW 
C 

C**+**FILE END OF ARC EVENT IN EVENT FTLE. 

C 

CALL FILEM (1) 

IF (JTRI8(1).LE.0) GO TO 50 
NSU8=JTRIB(1) 

NTr=NTYPE(NSUB> 

IF (NTT.LE.4) GO TO 50 
NSET( NEXT )=-NSETC NEXT) 

50 II 1= I 

GO TO (60,80,60,80,60,80,60,30), NT 
C 

C****4DETERMINE IF OTHER ACTIVITIES ARE IN FILE. 

C 

60 tN0X=NEXT+IMl+lM2+l 
MEXT=NSET(IN0X) 

IF (NEXT-77777 ) 20,80,70 
70 CALL ERROP (23) 

80 IF (III.NE.O) GO TO 100 

WRITE ( IPRT.llO) TNOW.NODE 
IF ( NEXT. EO.O) CALL EXIT 
IF (NEXT.NE.O ) GO TO 30 
CALL EXIT 
90 INDX=NEXT+IM1 

=«'**4«TEST RNUM AGAINST PROBABILITY (CUM. ) OF REALIZING THE ARC. 

IF (QSET(INOX) .GT.RNUM) GC TO 30 
GO TO 60 
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too 


CONTINUE 

RETURN 


no FORMAT (/12X.20HSCHAT CALLED AT TlME*Fa*2.A2H ARC COULD NOT 
IE SCHEDULED FROM NODE. IS/) 

END 

SUBROUTINE RMOVE (KCOLtJQ) 

DIMENSION NSET(S600) 

COMMON QSET(5600) 

COMMON /Gl/ MFAtMXC* IPRTt ICRO.IMlt IM2»MAXQS.NT2RfNC2RtN0Q.NSNKf 
I NRUN*NRNS,ISED.TN0W.ATRIB<6) ♦JTRIBie”) »NAME<20) ♦JCSLS(200.32) 
COMMON /G2/ MFEOOO) tMLEOOO) »NQ(300) «PARM( IQOt A) *SUMI (300) * 

I SUM2C300) »SUM3(300 ) ,SUM4(300)»SUM5C300) »NT2C2tePS 
EQUIVALENCE ( NSET ( 1) , QSET ( 1 ) ) 

DOUBLE PRECISION SUMl«SUM2 
IF (KCOL.GT.O) GO TO 10 

IF < (MAXQS-MFA) .LT.MAXQS) CALL ERROR III) 

CALL ERROR (97) 


C#AAA*PUT 

C 

10 


VALUES OF KCOL IN ATTRIB 


1NDX=KC0L 
DO 20 

JTRIB( I )=NSET( INOX) 
INOX=INOX+l 
20 CONTINUE 

DO 30 I=1,IM2 

ATRI8(I)=0SET( INDX) 
IN0X=IN0X+1 
30 CONTINUE 

IN0X=KC0L+IM1+-IM2 
JL=NSET( INDX+I ) 

JK=NSET( INOX) 

IF (JL.EQ. 77777) GO TO 70 
IF (JX.EO. 99999) GO TO 60 
INDX=JK+IMl-»-TM2-H 
NSET( INOX)=JL 
IN0X=JL<-IMl-HM2 
NSET( INDX)=JK 
40 IN0X=KC0L+rMI+IM2Tl 
NSET( INOX )=MFA 
NSET( INDX-l )=99999 
IF (MFA.GE. 83380) GO TO SO 
INDX=MFA+IM1+IM2 
NSET(INOX)=KCOL 
50 MFA^KCOL 

NQ( JQ)=NQ( JQ)-1 
RETURN 

60 INDX=JL+1MH-IM2 
NSET( INDX >=99999 
MFE(JQ)=JL 
GO TO 40 

70 IF (JK. 80*99999) GO TO 80 


0000 0075 
00000076 
00000077 
00000070 
00000079 

Booooooeo 
00000081 
00000082 
00000001 
00000002 
00000003 
00000004 
000000 OS 
00000006 
P0000007 
00000008 
00000009 
00000010 
0000001 I 
00000012 
00000013 
00000014 
00000015 
00000016 
00000017 
00000018 
00000019 
00000020 
00000021 
00000022 
00000023 
00000024 
00000025 
00000026 
00000027 
00000028 
00000029 
00000030 
00000031 
00000032 
00000033 
00000034 
00000035 
00000036 
00000037 
00000038 
00000039 
00000040 
00000041 
00000042 
00000043 
00000044 
00000045 
00000046 
00000047 


ORIGINAL PAGE W 
ftp POOR QUALITY 




1NPX=JK-HMI + IM2 + 1 
NSET( rN0X)=77777 
MLE(JQ)=JK 
GO TO AO 
80 MFE( JQ)=0 
MI_E(JQ)=0 
GO TO AO 
END 
C 

FUNCTION NFIND (NVAL . JQ . JATTi IRNK ) 

DIMENSION NSETI5600) 

COMMON QSET(5600) 

COMMON /Gl/ MFAfMXCt IPRT, ICRD. IMl # 1M2,.MAXQS»NT2R , NC2R , NOQ ♦NSNK. 

1 NRUN,NRNS»ISED.TN0W.ATRIB(6)»JTRIB(6) ,NAME(20) . JCELS ( 200 » 32 ) . 

COMMON /G2/ MFE(300) »MLE(300) *NQ(300) ,PARM( 100»A) ,SUMt (300) » 

I SUM2(300) ,SUM3(300) »SUM4(300)tSUM5( 300) *NT2C2»EPS 
EQUIVALENCE (NSETl 1 ) fOS£T( 1 ) ) 

DOUBLE PRECISION SUMX.SUM2 
NEXTK=MFE( JQ) 

K=l 

IF (NEXTK) 10 » 20 t 30 
10 CALL ERROR (89) 

20 NF1NO=0 
RETURN 

30 INDX=NEXTK+JATT-1 

IF (NSET( INDX ) .EQ.NVAL) GO TO AO 
IN0S=NEXTK+IM1+1M2+I 
NEXTK=NSET( INDS) 

IF (NEXTK. LT. 77777) GO TO 30 
GO TO 20 
AO NFIMO=NEXTK 

IF (K.EQ.IRNK) RETURN 
K=K+l 
GO TO 30 
END 
C 

SUBROUTINE HISTC (XI »N) 

COMMON 7G1/ MFA.MXC, IPRT.ICRDfIMl,I.M2»MAXQS,NT2R*NC2R»NOQ»NSNK. 

1 NRUN.NRNS, I SE0*TN0W»ATRIB(6) . JTR 18 ( 6 ) , NAME { 20 ) .JCELS ( 200 .32 ) 
common /G3/ KSTK 100 ) ,XLGW(200) .NRELl ( 300 ) * NR6L2 ( 300 ) ,NREL(300) . 
1 MREL(300) .KST4( 100) ,KST3( 100) ,MTYPE( 300 ) lOTH ( ?00 ) .NSTS.)4CTS 

common /G6/ NCEL( 10) .PR0fl(32, 10) .VAL( 33,1 0) , I3EC( 3. 1 3 ) .MAX ,NH IS , 
I KHIST.NPMCH 
NHlST=NSTS*2+2 
IF (N.LE.NHI3T) GC TO 20 
lO WRITS (IPRT.90) N . 

CALL EXIT 

20 IF (N) 10,10,30 

c ■ 

C**>et*s)'TRANSLATE XI BY SUBTRACTING A IF X.LE.A THEN ADD 1 TO FIRST CELL 
C 

30 A=XLOW( N) 

W=WrOTH(N) 

IF (W» 80, 70, AO 
AO X=X1-A 
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IF (X. 
IC=1 
GO TO 


GE.O,) GO TO 50 


60 


C**#**OeTERMINE CELL NUMBER IC. ADD I FOR LOWER LIMIT CELL AND I FOR 

C»*#*5tJTRUNCATI0N 

C 

IC=X/W+2.+.0001 


50 


60 

70 

80 


IF (IC.LE.MXC) GO TO 60 
IC=MXC 

J CELS (N • I C ) = JCELS ( N , 1 C) I 
RETURN 

WRITE CNHIS) Xl.N 

KHIST=KHIST+l 

RETURN 


C 

C 


90 


FORMAT 

END 


(19H ERROR IN HI STOGRAM. 14//) 


SUBROUTINE COLCT (X,N) 

COMMON /Gl/ MF A ? MXC * I PRT i I CRO » IM 1 « IME* MA X QS »NT2R*NC2R« NOQ »NSNK • 

I ■ NRUNtNRNS.ISED.TNOW»ATRIB(6).JTRIB{6)^MAME<20) . JCELS(200.32) 
COMMON /G2/ MFEOOO ) «MLE(300 ) ♦ NO (300 ) » FARM ( 1 00 f 4 ) .SUM I (300) » 

1 SUM2I300) .SUM3O00) .SUM4(300),SUM5<300 ) .NT2C2.EPS 

COMMON /G3/ KSTK 100 ) .XLOW ( 200 ) .NRELl (300 ) rNREL2I300) .NRELOOO) . 
I MRELI300 ) ,KST4( 100 ) ,KST3( 100 ) . NTVPE ( 30 0 ) ,W IDTH { 200 ) , NSTS.NCTS 
COMMON /G4/ XSTUS (10 0). SUMCT . CSTUS (100) . NCND . NCNL « NCNU .T2 . C2 . 

I ITFLG.ICFLG.TYYY.TCCC.TIMTO.COSTD 
DOUBLE PRECISION SUMI.SUM2 
NCLT=NSTS4 ( NCTS+2 ) +2 
IF (N.6T.0 ) GO TO 20 
10 CALL ERROR (90) 

20 IF (N.GT.NCLT) GO TO 10 
SUM! (N)=SUM1 (N)+X 
SUM2(N)=SUM2(N)+X4X 
SUM3 ( N ) =SUM3 ( N ) +l • 0 
IF (X.LT.SUM4(N) ) SUM4(N)=X 
IF (X.GT.5UM5(N)) SUM5(N)=X 
IF (T2.GE.0.) GO TO 30 
IF (C2.LT.0.) GO TO 40 
30 CALL COLCC 
40 RETURN 
END 

SUBROUTINE COLCC 
DIMENSION NSET(S600) 

COMMON QSET(5600) 

COMMON /Gl/ MFA.MXC. IPRT, ICRO.IMl . IM2.MAXQS,NT?R.NC2R.NaQ„NSNK. 

1 NRUN.NRNS. ISED.TN0W.ATRI6(6 )♦ JTRIB( 6) .NAME! 20) . JCELSI 200.32) 
COMMON /G2/ MFS(300) .MLE(300) .NO (300) »PARM( 100. 4) .SUMl (300) . 

I SUM2(300).SUM3(300) .SUM4(300).SUM5(300) .NT2C2.EPS 
COMMON /G3/ KSTK 100 ) .XLOW ( 200 ). NRELl ( 300 ) . NHEL2 ( 300 ) . NREL ( 300 ) . 
1 MREL(300 ) .KST4( 1 00 ) .KST3 ( 100 ) .NTYPE ( 300 ) . W I OTH ( 200 ) rNSTS.NCTS 
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COMMON /64/ XSTUS( 100) , SUMCT* CSTIJS ( 1 00 ) ♦ NCND . NCMU .NCNU .T2 tC2 . 
1 ITFLG, ICFLGf TYYY.TCCC.TIMTD,C0STP 
EOUI VALENCH ( NSETU ) tQSET( t ) ) 

DOUBLE PRECISION SUM 1, SUMS 

TESTT=0.0 

TESTC=0.0 

IF (T2.LT.0.) GO TO 30 

kflag=itflg+i 

GOTO ( 10.30, 1 0,30) . KFLAG 
C 

C***)»t» CALCULATE ACCUMULATED TIMES. 

C 

10 DO 20 K=NCNL.NCNU 
KK=K+(K-l )*NCTS 
TESTT=TESTT+SUM1 ( KK) 

IF {XSTUS(K).LE.O.) GO TO 20 
YYY=TNOW-XSTUS(K) 

TESTT=TESTT+YYV 
20 CONTINUE 

TESTT=TESTT-*-TYY Y- T IM TD 
C 

C#***4TEST ACCUMULATED TIME AGAINST THE T2 VALUE. 

C 

IF (TESTT.lt. T2) GO TO 30 

ITFLG=ITFLG+1 

NT2R=NT2R+l 

IF ( ICFLG.EQ. I .OR. ICFLG.EQ.3) NT2C2=NT2C2 +1 
30 IF (C2.LT.0.) GO TO 90 
KFLAGsICFLG+1 

GO TO (40,90.40.90), KFLAG 
C 

C*44:<s4CALCULATe PRESENT COST IN C-NOOES. 

C 


40 00 SO k=ncnl.ncnu 
L=NCLT-NSTS-2+K 
TESTC=TESTC45UM1 ( L ) 
SO CONTINUE 
C 

C>»:«j(tJit4CALCULATE AMO ADD COSTS 
C 

C##*#«ATRTB(3 )-=0SET( INDOX+2) 
CA^^Xe^rATR la ( 4 )=QSET { I NOQX+3 ) 
C4t<t**^ATR 13 (6 )=QSET ( I NOQX + 5 ) 

C 

L1NE=MFE( 1 ) 

IF (LlNE.LE.O) GO TO 80 


FROM STILL ACTIVE COST ACTIVITIES. 

SETUP COST OF ARC 
VAP I ABLE COST OF ARC 
TIME ARC WAS STARTEO 


60 IN00X=LIME+IM1 

IF (QSET(INOOX+S).LE.O.) GO TO 70 

TESTC=TESTC+QSET( rN0QX-f2)+QSET(INDQX+3)*(TNPW-0SET( INOOX^S) ) 
70 I3UB=LINE+IMI4TM2+l 


LINE=NSET( I SUB) 

IF (LINe-77777) 60.80,80 
C 

C#Ss*#CTEST accumulated COSTS AGAINST THE C? VALUE. 
C 
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' ' V* 

80 Te®TC=TESTC-COSTD+TCCC 

IF <TeSTC.l.T>C2) an to 90 

ICFU<5«ICFLG+l 

NC29«NC2R+l 

IF UTFLG.EQ.l .0R.ITFLG.g0,3) NT2C2=NT2C2^l 
90 CONTlNUe 
RETURN 

END 

FUNCTION CSTUP (OUM) 

DIMENSION NSET(S600) 

COMMON QSET(5600) 

COMMON /Gl/ MFA.MXC* IPRT.ICROrlMl . IM2f MAXQS»NT2R.NC2RrN0Q»NSNK. 

1 MPUN*NRNS*ISED.TN0W,ATRia(6) # JTR IB( 6 ) . NAitg ( 20 ) >JCELS( 20 0,32) 
COMMON /G2/ MFE(300) ,MLE(300) »NO(300) »PARM( ,SUM1 (300)» 

I SUM2(300).SUM3(300)*SUM4(300),SUM5<300) ,NT2Ca*ePS 
COMMON /G4/ XSTUS( 100) , SUMCT, CSTUS ( 1 00 ) , NCNO , NCNL , NCNU , T2 ,C2 , 

I ITFLG, ICFLG,TYYY»TCCC,TIMTD,COSTO 
EQUIVALENCE ( NSET ( 1 > » QSET 1 1 > ) 

DOUBLE PRECISION SUMl ,SUM2 
LINE=MFE< 1 ) 

CSTUP=SUMCT 

IF (LINE.LE.O) GO TO 20 
10 INDX=LINE+IMl 

CSTUP=CSTUP+(TNOW-QSET( INDX) )*QSET< INOX+3) 

ISUB=LINE+lMl-HM2 + l 
LINE=NSST( 1SU8) 

IF (LINE. LT. 77777) GO TO 10 
20 CONTINUE 
RETURN 

END 

SUBROUTINE SUMRY 
DIMENSION GRAF (SO), XLET(6) 

COMMON /Gl/ MFA.MXC, TPRT, ICRO, IMl, IM2,.MAX0S,NT2R»NC2R,NQQ,NSNt<, 

1 MRUN .NRNS, I SEO . TNOM , ATRI 6 ( 6 ) , JTRIB( S) » NAME (20) , JCHLS ( 200 » 32 ) 
COMMON /G2/ MFE(300),MLE(300) ,NQ(300) ,PARM( 100*4) ,SUMl( ^00) , 

1 SUM2(300) ,SUM3(300) ,SUM4 ( 300 ) »SUMS( 300 ) ,NT2C2,EPS 

COMMON /G3/ KST1(100),XLOW(200),NREL1 ( 30 0 ) , NREL2( 300 ) , NREL( 300 ) , 
1 MREL ( 300 ) • KST4 ( 1 00 ) ,KST3 (100), NTYPE ( 300 ) ,W IOTH( 200 ) , NST3,MC TS 
COMMON /G4/ XSTUS( 100) ,SUMCT,CSTUS(100) , NCNO. NCNL. NCNU.T2»C2, 

1 ITFLG, ICFLG.TYYY.TGCC.TrMTO.CaSTD 
COMMON /G5/ MSTN(2000.2) .MST(300)»KST2(300) . IGRP. JGRAF.SCAL . 
DATA AA,BB,CC/1H4, IH ,1HC/ 

DATA XLET/IMF. IHA, 1H8, IHT. IHD, 1HC/»T,CT/4HTIME.4HC0ST/ 

DOUBLE PRECISION SUMI.SUM2 

SFLAG=0.0 

NHIST=NSTS>)‘2-»-2 

HFLAG=0,0 

NCLT=NSTS»( NCTS+2 ) +2 
MCLT=NCLT-NSTS~2 
CALL ADJST 
WRITE (IPRT.340) 

WRITE (IPRT,350) NAME.NRUN 
X = i 
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10 JJ=KST3(K) 

J=l 

IF (JJ.SQ.O) GO TO 110 
COOE=XLET( JJ) 

20 I=(K^l)!4'(NCTS-M )+J 

30 IF (SUM3<I),GT*0-) GO TO 40 
IF (JJ.NE.O) 60 TO 100 
IF II.GT.MCLT) GO TO 100 
WRITE (IPRT.360) KSTKKl.JJ 
60 TO 100 
♦ 0 XS=SUMim 
XSS=SUM2< 1 ) 

XN=SUM3(I) 

AVG=XS/XN 

IF IXN+XSS.GT.XS^XSl GO TO 50 

STO-0.0 

GO TO 60 

50 $TO=SQRTf < (XN*XSS)-(XS^XS) )/(XN^(XN-l .0) ) ) 

c 

C***#*TEST IF C-NOOE RUN STATS ARE BEING PROCESSED# 

C 

60 IF (SFLAG.EQ.l #0) GO TO 280 
IF IHFLAG.EQ#! #0) GO TO 290 
IF (J#GT.l) GO TO 90 
IF (KST3{K) #LE. 1 ) GO TO 70 
XN^KSTA(K) 

TO PROBES XN/NRUN 

IF (I.GT#MCLT) GO TO 80 

WRITE ( IPPT*370) KST l(K ) . PROS • AVG,. STO » SUM3< I ) »SUM4< I ) 

I=MCLT+K 

GO TO 30 

80 IF IJGPAF.EO.O) GO TO 100 
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WRITE (IPRT»30O) A VG# STD *SUM3( I ) f SUM4 ( I ) , SUMS ( I ) 

GO TO 100 

90 WRITE (IPRT.390) KST 1 ( K ) t J J #A VG » STO #SUM3 ( I > • SUM4 ( I ) .5UM5I I ) 
100 J=J+l 

IF ( J#LE#(NCTS+1) ) GO TO 20 
110 K-K >1 

IF (K#LE.NSTS) GO TO 10 
WRITE ( IPRT»400) 

IF fT2#GE.O.) WRITE (IPRT,410) NT2R 
IF <C 2 .Ge. 0 . 0 ) WRITE (IPRTf420) NC2R 
IF (NT2C2#GT#0) WRITE ( IPRT#430) NT2C2 
IF CIGRF#E0#1> GO TO ISO f 

WRITE f IPRT#440) 

00 130 I^lfNSTS 
V V NCL=:MXC 

IF (WIDTH! 11 .EQ#0. ) GO TO 120 


00000057 
00000058 
0000 0059 
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000000 6 1 | 
00000062[ 


00000063^ 

00000064 

00000065 

0000006 J 

000000671 


00000066 
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00000071 


OOOOOOTi 


WID=ABS( WIDTH! 1 )) 0000007:^ 

WRITE ( IPRTfASO ) KSTl C I ) #XLOW( X) #WIO# ( JCEL3 ( t ♦ J ) , 0= 1 ,NCL) 00000074 

120 IF (OGRAF.EQ.O) GO TO 130 ^ ^ ^ ^ 

/ J=NSTS+1 0000007^ 

IF (WIDTH! J) #eQ#0.) GO TO 130 ^ 

WID=A8S<WI0TH( J) ) ^ ^ ^ 
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130 

190 
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WRITE ( IPRT*460) KSTl (I ) tXLOW t J ) Iwi Dr < JCELSI J t KJ . K=1 .NCL) 
CONTINUE 

IF (NCNO.GT.O) GO TO 270 

continue 

RETURN , , 

NNN=0 

KKK=1 

I=KKK /: 

Ii=l+NNN 

IF (WIDTH(II).EO.O.J GO TO 250 
INDEX=II-K II~U*NCTS 
IF (NNNrGT.O) IN0EX=MCLT-fI 
IF (SUM3( INDEX) .LE.O. I GO TO 250 
IF (NNN.GT.O) GO TO 180 
WRITE (IPRTi470) KST 1 ( I ) 

GO TO 190 

WRITE <TPRTt480) KSTUI) 

WRITE (IPRT.490) 

WRITE (IPRTrSOO) 

CUML=0# 

WI0=A8S < WIDTH! II) ) 

DO 240 J=lrMXC 

RELA=JCELS( II. J) 

RELAi=RELA/SUM3 (INDEX ) 

CUML=CUML+RELA 
NR=REt:A*50. + . 000001 

MC=CUMU450.+. 000001 . 

DO 200 N=lr50 
GRAF<N)=BB 


200 CONTINUE / 

GRAF(50)=XLET(4) 

IF (MC.LE.O) GO TO 220 
GRAF(MC)=CC 

IF (MR.LE.O) GO TO 220 
DO 210 N= 1 r MR 
GRAF(N)=AA 
210 CONTINUE 

220 IF ((J-l).GT.O) GO TO 230 

WRITE (IPRT.510) JCELS ( 1 1 r J ) . RELA . CUML .GR AF 
t?LOW=XLOWn i )-WID 
60 TO 240 

230 BLOW^BLOW+WID 

WRITE (IPRT.520) JCELS! II. J),RELA»CUML.aLOW. GRAF 
240 CONTINUE 

K0BS=SU«3( INDEX) + .00 I 
WRITE (IPRT.530) KD3S 
C 

G4*+4:<£TEST if C-MODE HISTGRAMS being PROCESSED and IF DONE. 

c : . 

IF (HFLAG.EQ.l .0) GO TO 330 
IF (SFLAG.EQ. 1 .0 ) GO TO 140 
250 KKK=KKK+1 

IF (KKK.LE.NSTS) GO TO 170 

IF (NNN.GT.O) GO TO 260 

IF (JGRAF.LE.O) GO TO 260 
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NNN=NISTS 
GO TO 160 

260 IF <NCND) 140. 140.270 


C4i#*^ity;0RKIN6 ON C-NODE STATS. SET FIRST FLAG AND PRINT OUT HEADINGS* 
C 

270 SFLAG=1.0 

WRITE (IPRT.E40) NRUN 
C 

C4t4t4**PREPARE TO PROCESS C-NODE TIME DATA* 

C 

I=NCLT-1 
CODE=T 
GO TO 40 
C 

C**4t**PRINT OUT C-NODE RUN TIME STATS. 

C 

280 WRITE <IPRT.550) 

WRITE (IPRT.560) COO E . A VG « STD . SUMS { I ) . SUM4( I ) , SUMS! I ) 

C 

C**«W*PREPARE to PROCESS C-NODE COST DATA. 

C 

HFLAG=1.0 
SFLAG=0.0 
I=NCLT 
COOS=CT 
GO TO 40 

290 WRI TE (TPRT.560) GOD E . A VG . STD . SUMS ( 1 > . SUM4 ( I ) . SUMS ( I > 

C 

C44t*44tPREPARE TO GET HISTOGRAM OF C- NODE DATA. 

C 

IF (IGRF.EQ.l) GO TO w 
C 

C*4t*nt«STANOARD HISTOGRAMS FOLLOW. FIRST TIME DATA. 

C 

I=NHIST-l 

NCL=MXC 

IF <WIOTH(I) .NE.O..OR.W1DTH(NHIST) .NE.O.) WRITE (1PRT.440) 

IF (WIOTHC I) .EQ.O. ) GO TO 300 
WIO=ABS(WIDTH( I ) ) 

WRITE (IPRT.570) XLOW ( I ) . W ID . ( JCELSI I , J ) . J=I .NCL ) 


C44W**C0ST HISTOGRAMS. 

C 

300 IF (WIDTH(NHIST)«E0.0.) GO TO 140 
WlD=ABS(WTDTH(NHiST) ) 

WRITE ( IORT.S80) XLQW(NHIST) .WID. ( JCELS( NHIST.K) ,K-1 .NCL) 
WRITE {IPRT.340) 

GO TO 140 
C 

C4t4:W*WPLOTTEO HISTOGRAMS. 

C 

310 I I=NHIST-1 

INDEX=NCLT-1 

IF (W IDTH( 1 1 ) .EQ.O.I GO TO 330 
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WRITE (1PRT.590) 

C 

C*****PREPARS TO PROCESS TIME DATA* 

C 

320 I»II 

GO TO 190 
C 

G*Ai»*»PREPARE to process COST DATA- 
C 

330 IF (WIDTH(NHIST) .EQ*0«) GO TO 140 
WRITE (1PRT.600I 
SFLAG=l.O 
HFLAG=0*0 
M-NHIST 
INOEX=:NCLT 
GO TO 320 


D 


340 

350 


FORMAT 

FORMAT 


< IHl) 

( 1X»26HGRASP 


SIMULATION PROJECT t . IX . 20A4 .//// . 31 X .v 


1 

2 
3 


•♦♦FINAL RESULTS FOR*. 18* • SIMULATION RUNIS )♦♦• .//. 


oooootap 

00000190 
00000191 
00000192 
00000193 
00000194 
000 001 95 
00000196 
00000197 
00000198 
00000199 
00000200 
00000201 
00000202 
00000203 
0000 0 204 
00000205 
00000206 
00000207 
00000208 
00000209 
00000210 


4X. *PR09./» .8X» ’MEAN* » 9X. ‘STAND. *. 7X .* NO OF* f 6X, *MIN* , 12X. * MAX *. 0000021 1 


9 X. ‘NODE* »/.24X. ‘COUNT* «23X.*DEV.* .9X**0aS.* .33X.*TYPE* ) 


360 

370 

3S0 

390 

400 

410 


(/IX. 117. r 13.9X, 18HN0 VALUES RECORDED) 

(/lX.I17.3X.F9.4,4X.E12.6.3X.Et2.6.F8.0.2(3X.£12.6) .4X.A3) 


( 17X. I ONCOST 


.7X.E12.6.3X.El2..6.F8.0*2(3X.ei2.6) ) 


( lX.I 17. Il3.3X,El2.6.3X.E12.6.F8.0.2(3X.ei2.6) ) 

( IHO) 

( IHO. 16X. 47HNUMBER OF TIMES SYSTEM EXCEEDED T2 CRITERION 
( IHO. 16X.47HNUMBER OF TIMES SYSTEM EXCEEDED C2 CRITERION 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
1.16) 

420 FORMAT 
1.16) 

430 FORMAT ( IHO . 1 6X. 5SHNUMBER OF TIMES SYSTEM EXCEEDED BOTH T2 AND C2 
ICRITERIA IS, 16 ) 

440 FORMAT (//43X, 14H4«H IST0GRAMS44// 17X . SHLOWEP , 7X , 4HCELL/6X , 4HN0DE . 
1 7X.5HLIMITf7X,5HWI0TH.3lX,TlHFPeQUeNCIES) 

(/IX. I9,2E12.4,4X,11I6/(38X,11 16) ) 
(/1X.4HC0ST,IS.2E12.4,4X,11I6/(38X,11 16) ) 

( 1H1///20X,23HSTAT HISTOGRAM FOR NODE. 15) 

( IH1///20X,23HCOST HISTOGRAM FOR NODE. 15) 

(///20Xf 4HO0SV*5X^4HRELAf5X>4HCUML 1 I IHLOWSR fiOUNDt 6Xt 


450 

FORMAT 

460 

FORMAT 

470 

FORMAT 

430 

FORMAT 

490 

FORMAT 

1 

IHO. 8 

50 0 

FORMAT 

510 

FORMAT 

520 

FORMAT 

530 

FORMAT 

54 0 

FORMAT 

1 

ODES^>>:,. 

550 

FORMAT 

1 

AHMIN 

56 0 

FORMAT 

570 

FORMAT 

5S0 

FORMAT 

590 

FORMAT 


. 2H20 • 8X » 2H4 0 * 8X . 2H60 ♦ 8X • 2HB0 » 7X f 3H 1 00 ) 


n ) 


I 20X • 3 ( 4HFREQ « 5X ) 1 2X » 7H0F CELL • 3X * IH I • 1 0 ( 5H • - 
</19Xf I592(4XfFS*3) .9X#4H-INF9 9X# IHI^50<U ) 

( 1 9 X f 1 5 f a ( 4X f F5 • 3 ) f 4 X » E 1 2 • 4 ^ 6 X , I H I f 5 0 A 1 ) 

(2lXf3H >40XfiHltlO(SH*#**r)/iaXf 16) 

( 1HI///24X#51H^^FINAL RESULTS FOP RUH DATA OF ACCUMULATOR 
//// # 3 I X f • INAL RESULTS FOR * • 1 09 • S IMULATI ON RUN < S) 4i)c • / ) 

(//17X94HTYPE9l8X94HMEAN*5X9aHSTO.0EV.95Xf5HN0 0F*9X% 

• f 9X f 4HMAX •/62X f AHCeS#//) 

( 17X»A4f llXf2E12#4#3X9F7.0,2E13*4 ) 
(//12X»4HTTME,2El2#4^4X9llie/t44Xf 1116) ) 
r// 1 2X • 4HC0ST 9 2E I ^4 4 f 4X » 1 1 1 6/ ( 44X 9 1 ir^^ 

( 1H1///20X9 42HSTAT HISTOGRAM FpR ACGUMULATION NODE TIMES) 


00000212 
00000213 
0000021 4 
0000021 S 
00000216 
00000217 
IS 000 0021 8 
00000219 
1S00000220 
00000221 
00000222 
00000223 
00000224 
00000225 
00000226 
00000227 
00000228 
00000229 
00000230 
00000231 
00000232 
00000233 
00000234 
0000023S 
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00000237 
00000230 
00000239 
00000240 
000 00 241 
00000242 
00000243 
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500 FORMAT { I HI///20X t AaHSTAT HISTOGRAM FOR ACCUMULATION NODE CDSTS ) 
END 

SUBROUTINE SAMPL (DEV) 

COMMON /Gl/ MFA f MXCf IPRT # I CRD f I M I t IM2 . MAXQS# NT^R t NC2R • NOQ tNSNKf 
1 NRUN,NRNSt ISEOfTNOWf ATRI8(6)» JTPIB( 6) *HAME(aO) f JC£LS(200^3a) 
COMMON /G2/ MFE(300) t MLE <300 ) t NQ < 300 ) •PAPMX lOOt 4) .SUMl (300) * 
t SUM2(300 ) *,SUM3( 300 ) #SU*M4 ( 300 ) vSUM5( 300 ) ♦NT2C2»EPS 
COMMON /G5/ MSTN(2000f2) tMSTC300 ) fKST2< 300 ) f IGRFt JGRAF >SCAL 
DOUBLE PRECISION SUMl#SUM2 
JP==JTRI8(2) 

UD=JTRIB<3) 

GO TO <10f20*30^40*l 10« 120#170^180*.170il90*2l0t220*230»f JD 
CONSTANT 

10 OEV=PARM(JP»ll 
RETURN 

NORMAL 

2 0 OEV=:RNORM( JP) 

RETURN 

UNIFORM 

30 A^PARM(JP»2) 

B=PARM< JPt3) 

DEV:=A-KB-A)^RANF( ISED) 

RETURN 

ERLANG 

4 0 K^PARM< JP f4)-l-*OOl 
RNUM-RANF(ISED ) 

K=K-l 

IF (K#LE#0 ) GO TO 60 
DO 50 I-l »K 

RNUM=RNUM»RANF( ISED) 

50 CONTINUE 

60 OUM=-°ARM( JP. 1 )«ALGG{RNUM> 

70 IF <DUM-PARM( JPt2) ) 8O*lC0f90 
80 DUM=PARM( JP,2) 

vv ■ GO TO 100 . ' //■ 

90 IF (DUM.LE#PARM(JP»3 ) ) GO TO TOO 
OUM=PAPM( JPf 3) 
too OEV=DUM 
; RETURN , ' 

>> LOGNORMAL ; 

110 OEV^eXP(RNORM( JPI ) 

' RETURN ; 

POISSON 
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00000244| 

00000245] 

>0000000 ij 
00000002 
00000005 
00000004 
00000005 
00000006 
00000007 
00000008 
000000.09 
00000010 
00000011 
00000012 
00000013| 
00000014 

ooooooisf 
00000016 
00000017 
00000018 
00000019' 
00000020 
00000021 
00000022 
00000023 
00000024 
00000025 
00000026 
00000027 
00000028 
00000029 
00000030 
00000031 
00000032 
00000033 
OOOp'0034 
00000035 
00000036 
00000037 
00000038 
00000039 
00 DO 0040 
00000041 
00000042 
00000043 
00000044 
00000045 
00000046 
00000047 
000 00 04 3j 
00000049r 
ooooooso'^ 
00000051 ' 
00000052 
00000053 




.’O. 


r 




fx 

!f C 


120 


130 


C 

c 

c 


17*0 


c 

c 

c 


c 

c 

c 


190 


200 


C 

C 

C 


210 


c 

c 

c 


140 


150 


160 


NPSSN=0 
P=PARM(JP»iy 
IF (P.GT.9.) GO TO 140 
Y=EXP(-P) 

X=l, 

RNUM=RANF<ISED) 

X«X4RNUM 

IF (X«LT«Y) GO TO 150 
NPSSN=NPSSN+1 
GO TO 130 
TEMP=tPARM( JP.4) 

PARM( JP*4)=SQRTCPARM( JP.l > ) 
PARM<JP,l)=PARM< JP»1 )4PARM( JP.2) 
Oev=AINT(RNORM{ JP»+0*5) 

PARMIJPt U*PARM< JPtl )«PARM( JP.2) 

PARM< JP.4)=TEMP 

RETURN 

KK=PARM( JP»2) 

KKK=PARM(JPt3) 

NPSSN=KK+NPSSN 
IF (NPSSN.LE.KKK) GO TO 160 
NPSSN=PARM( JP,3) 

0EV=NPSSN 

RETURN 
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beta 


AsspARMl JP» 1 ) 

B=PARM( JP»4) 

X=6AM( At ISED) 

DUM=X/ < X+G AM< B # I SED ) ) 

0EV=DUM4<PARM( JPt3)-pARM( JPt2) )+PARM( JPt2) 
RETURN 


GAMMA 


ISO 


A=PARM(JP,4) 

DUM=GAM ( A 1 1 SBO )/PARM { JP t 1 ) 


GO TO 70 


SCALE FACTOR 


OEV=0 . 

IF (JP.EQ.O) GO TO 
DEV=FLOAT< JP)/SCAL 
RETURN 


200 


TRIANGULAR 


DEV=TRNGL( JP) 
RETURN 


WEI BULL 
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// 

220 OUM=PARM(JP« I ) *( ( -I . *ALOGC RANF( ) ) **PARM ( JP » 4 ) ) 

GO TO 70 


DISCRETE 


230 DEVaOISCR( JP) 

RETURN 

END 

FUNCTION RNORM (JO) 

COMMON /Gl/ MFA.MXC. IPRT. ICRD« IMl , IM2 , MAX0S*NT2R *NC2R »NOQ *NSNK. 
I NRUNpNRNS. 1SED.TN0W.ATRIB(6 ) , JTR IB ( 6 ) . N AME ( 20 ) • JCELS( 20 0#32) 
COMMON /G2/ MFEOOOJ .MLE(300) tNQOOO) fPARMUOO. A) pSUMl C300) 1 
I SUM2(300 ) .SUM3(300 ) .SUMAC 300 ) ♦ SUMS ( 3 00 ) ,NT2C2 » EPS 
DOUBLE PRECISION SUMl.SUME 
J=JO 
SUM=0 . 

DO 10 I=l»12 

SUM=SUM+RANF ( ISED ) 

10 CONTINUE 
V=SUM-6. 

PNORM=V*PARM( J»4)+PARM( J.1 ) 

IF (RNORM-PARM( J.2) ) 20 .30.40 
20 RNORM=PARM( J ,2) 

30 RETURN 

40 IF (RNORM. LE.PARMCJ.3)) GO TO 30 
RN0RM=PARM(J.3) 

RETURN 


END 

FUNCTION TRNGL (JD) 

COMMON /Gl/ MFA.MXC. IPRT.ICRD.lMl .IM2.MAXaS.NT2R.NC2R.NOQ.NSNK. 
1 NRUN.NRNS, I SED , TNOW . ATRIB (6 ) , JTR1B( 6 ) . NAME { ?0 ) . JCELS ( 200 .32 ) 
COMMON /G2/ MFE( 300) .HUE (300) »NQ( 300) .PARM( 1 00. 4) .SUMl (300) ♦ 

1 SUM2(300) .SUM3(300 ) .SUM4 ( 300 ) .SUMS ( 300 ) .NT2C2 . EPS 

DOUBLE PRECISION SUM1.SUM2 
JpsJO 

RsRANFdSED) 

IF (R.GT.PARM( JP.l ) ) GO TO 10 
R=SQRT{PARM( JP. 1 )«R) 

GO TO 20 

10 R=1 .-SQRTf ( 1 .-PARM( JP.l ) )>M1.-R) ) 

20 TRNGL=P4PARM( JP.4) 

RETURN 

A ■ ■ ‘ 

END 

PUNCTIQM gam (ALPHArlSED) 

K^ALPHA 

FK-K 

GAM=0* 

IF CK.LE.0) GO TO 20 
PRQO=l .0 
DO 10 tSC 

PROD=PROD#RANF( ISED) 

10 CONTINUE 
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GAM=-ALOG( PROD ) 

20 D=ALPHA-FK 

tF (0*LE*.015| GO TO 60 > 

IF (0.LT..985) GO TO 30 
W = l. 

GO TO SO 
30 A=l,/0 

B=l,/U.-D) 

40 X=RANF<rSEO)^^A 
y=RANF< ISE0)*=4tB-fX 
IF (Y.GT.l. ) GO TO 40 
W=X/Y S\ 

SO Ys-ALOGCRANFI ISED)) 

GAM=sGAM+W»Y 
60 RETURN 
C 

END 

SUBROUTINE BETAXF 
C 

C4*^4*THIS ROUTINE CONVERTS THE GIVEN BETA PARAMETERS* MEAN + VARIANCE 
C«#**#TO (1) THE MEAN AND VARIANCE OF A BETA DISTRIBUTION OVER THE 
C*F^»*INTERVAL (0*1). (2) THE K1 + K2 VALUES NEEDED TO OBTAIN A BETA 
C:**4c«4>VAR1AT£ from the RATIO OF TWO GAMMA VARIATES 


PARAMi J *1 ) 
PARAM< J*2) 
PARAM( J.3) 


CONTAINS THE MEAN, AT CLOSE IT 
CONTAINS THE LOWER LIMIT 
CONTAINS THE UPPER LIMIT 


WILL CONTAIN KI 


PARAM(J,4) CONTAINS THE VARIANCE^ AT CLOSE IT WILL CONTAIN K2 

COMMON /G 1 / MFA ,MXC* I PRT * ICRO , IMl * I M2 * MAXOS . N’^aR . NC2R * NOQ .NSNK . 
I NRUN.NRNS* I SEO , TNOW « ATRIB ( 6 ) * JTR IB ( 6 ) *NAME(20) * JCELS <200.32 ) 
COMMON /G2/ MFEC300) *MLE(300 > *NQ(300> *PARM(100.4) *SUMl (3001 , 

I 3UM2(300)*SUM3(300)*SUM4(300)*SUM5(300)*NT2C2,EPS 
DOUBLE PRECISION SUMI,SUM2 
Jj=JTRIB(2) 

BHEAN=(PARM(J.1)-PARM<J,2))/(PARM{J.3)-PARM(J.2>) 

BVAR=(PARM( J,4)/ (FARM (J,3)-PARM<J,2) )) 442 
PARM( J. 1)=8MEAN4(I3MEAN4( I.0-BMEAN)/BVAR-1 .0) 

PARM( J,4)=PARM( J,1 )4((1 ,0-BMEAN>/BMEAN) 

RETURN 

END 

SUBROUTINE PERTXF 

COMMON /Gl/ MFA.MXC, IPRT, ICRO *1M1 , IM2 * MAXQS , NT2R,NC2R . NOQ .NSNK * 
I NPUN.NRNS, ISED,TN0W,ATR18(6) *JTRIS< 6).NAMe<20) , JCELS(200,32) 
COMMON /G2/ MFEOOO) *MLE(300) * NQ ( 300 ) * P ARM( I 00 * 4 ) * SUM! {300). 

V 5UM2 (300) ,SUM3(300 ), SUM4(300).SUM5{300) , NT2C2.EPS 
DOUBLE PRECISION SUM1.SUM2 
J=JTRIS(2) 

PARM( J , l)=(4.4PARM( J,l )+PARM(U.2)+PARM( J.3) )/6.0 
PARM( J.4)=(PARM( J.5)-PABM( J.2))/6. 

CALL BETAXF ; 

RETURN 


ooooooto 

OOOOOOll 

0000001(1 

00000013 

00000014 

00000015 

00000016 

00000017 

00000016 

00000019 

00000020 

00000021 

00000022 

00000023 

00000024 

0000002S 

00000026 

OOOOOOOl 

00000002 

00000003 

00000004 

00000005 

00000006 

00000007 

00000008 

00000009 

ooooooto 

OOOOOOll 

00000012 

00000013 

00000014 

00000015 

00000016 

00000017 

ooQoooia 

00000019 

00000020 

00000021 

00000022 

00000023 

00000024 

00000025 

OOOOOOOl 

00000002 

00000003 

00000004 

00000005 

00000006 

00000007 

00000006 

00000009 

00000010 

OOOOOOll 

00000012 

00000013 


END 
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SUBROUTINE GR6A0 

COMMON /Gl/ MFA*MXC. I PRT » ICRD . I M I » IM2 f MAXQS . NT2R t NC2R » NOO »,NSNK » 
I NPUN fNRNS 1 1 SED , TNOW »ATR IO( 6 ) . JTR rB( 6 ) t NAME (20 ) . JCELS (POO #32 ) 
COMMON /Gt5/ NCEL( tO) , PROS <32, 10) # VAL ( 33 » 1 0 ) . ISHC ( 3 » 1 0 ) .MAX.NHIS 
I KHtST,NPNCH 

10 READ (ICR0,60) JQ.NCELS.WIO 
IF (NCELS,EQ#0) RETURN " 

IF (JQ.GT.MAX) GO TO 40 

READ (ICR0,70) ( PRGB ( J » JO ) , J= 1 , NCELS ) 

READ <ICR0#80) (VAL( J. JO ) • J=sl #NCELS) 

write <rPRT»90) JQ.NCELS.HIO 

WRITE (IPRT.lOO) (PROBfJ, JO), J=l, NCELS) 

WRITE (IPRT.llO) (VAL(J,JQ) , J=1 »NCELS) 

NCEL( JQ)^NCELS 
DO 20 J=2.NCELS 

PROS ( J , JQ ) =PROa ( J , JO ) +PROB ( Jr- 1 , JO J 
20 CONTINUE 

IF ( AOS(PRaa( NCELS, JO)-l,),GT.. 002) GO TO SO 
30 GALL ASSGN (JQ) 

VAL(33. JQ)=WIO 
GO TO 10 

40 WRITE (1PRT,120) JQ.MAX 
CALL EXIT 

SO WRITE ( IPRT ,130) JO, PROS ( NCELS, JO ) 

PROS ( NCELS# JO )= I . 

GO TO 30 


0000 000 fi 


110 *^ORMAT 

120 format 


60 FORMAT (2 IS #£10, 4) 

70 FORMAT ( 16FS.4) 

80 FORMAT (8E10.4) 

90 FORMAT (///lOH HISTOGRAM, IS ,SX# IS #6H CELLS. 5X# 1 IHCELL WI0TH=# 

1 £13,4) 

100 FORMAT (/5X#13HPR0eAaiLITIES/(5X»aFl0.4) ) 

110 *=^ORMAT (/SX.llHCELL VALUES/{5X#aEl3.4) ) 

120 format (/lX#i9( IH*) ,5X,S4HWARNING-ATTEMPTE0 TO READ DISCRETE DIS 
IBUTION NUMaER, I4/15X»39HMAXIMUM ALLOWED BY PRESENT OIMENSIQN IS 

2 14) 

130 FORMAT ( / 1 X » 9 ( I H* ) # 47HWARN ING-PROB AS I L IT I ES FOR DISCRETE OlSTRl 
1I0N#I4,16H DO NOT SUM TO I / 1 1 X , 4HSUM= , FI 0 ,5 , 23H SUM WILL EE S 

2T0 I ) 

SNP 

SUSROUTINc GSAVE (NODEfJQfKTKWORO) f) 

OIMENSrON XCEUS13Z) 

COMMON /Gl/ vMFAtMXC* IPRT \ ICROf IMl t IM2 , MAXQS » NT 2R f NC2R w NOO t » 
1 MRU N # NRM S * I S ED » TNG W f A T R I B ( 6 ) f JTR I B ( 6 ) f N AfME ( 20 ) t J CEL S { 2 0 0 , 3 2 > 
COMMON /G2/ MFEOOO) ^MLE<3 00 ) »NQ(300) I 00i4 ) ,5UMl (300) » 

1 SUM2< 300) *SUM3(300 ) ,SUM4( 300 ) *SUMS( 300 ) »NT2C29EPS 
COMMON /G3/ KSTl ( 1 00 ) t XLCW (200 ) * NREL 1 ( 300 I vNRELat 300 ) ♦ NREL ( 3 00) 
1 MREL( 300 ) ,KST4< 100 ) tKST3 ( 1 00 ) t NT YPH ( 300 ) tWIOTHC 200 ) . NSTS* NCTS 
COMMON /G5/ M5TN(2000»2) , MST ( 300 ) » XST2 ( 300 ) # I GRF f JGR AP t SCAL 
COMMON /G6/ NCEL( 10) t PR08(32t 10) f VAL( 33 * 10) « 1SEC(3, 10 ) ,MAX*NHIS 
1 KHIST.NPNCH 
DOUBLE PREGISIQN SUM! iSUM2 


%00000ll 
0000 DO 12 
00000013 
00000014 
OOOOOOlSi 
00000016 
00000017 
00000016 
00000019 
00000020 
00000021 
00000022 
00000023 
00000024 
0000 002S 
00000026 
00000027 
0000002 € 
00000029 
0000003C 
00000031 
00000032 
00000032 
00000034 
00000035 
0000 00 3C 
TRl 0000 0031, 
f 0000003^ 
0000003^ 
BUT 000 000 4 C 
HI 00000041 
00000042 
00000041 
0000000 ) 
0000 0002 
0000000:1 
OOOO00O4 

ooooooos 
0000 00 
. 00000001 
oooooooi 
000 0 00 0*1 ' 
f 000 0 00 ir 
000 0 00 1 ; 
0000 0011 
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t'. 


10 


20 


i 


30 


,<^0 


50 


I# (JQ.GTaMAX) GO TO 20 
KK=KST2(M0DE) 

IF (KSTl(KK) .NE.NODE ) <30 TO 20 
KQ=KK+(KK-l )*NCTS 
SNUM=SUM3(I<Q> 

IF CSNUM.Le..5) CALL ERRQI? (14) 
NCEL( JQ>s=32 , \ 

WlO*AeS( WIDTH! KK) ) ' ' 

IF (WIO.EQ.O.) GO TO 20 
START=XLO W ( KK ) -2 . 0 *W I 0 
IF (K.EQ.T) GO TO 30 
CUM=0 • 

00 10 J=1.32 

VAL( J*JQ)-START+WID*FL0AT( J) 
CUM=CUM+FLOAT( JCELS(KK* J ) >/5NUM 
PRQB< J,JQ)=CUM 
CONTINUE 
VAL(33. JQ)«W1D 
CALL ASSGN <JQ) 

RETURN 

WRITE (IPRT^eO) KWORD<fNOOE. JQ.MAX 
CALL EXIT 

WRITE (NPNCH.70) JQrWID 
DO 40 J=U32 

XCELS( J ) sFLOAT ( JCELS ( KK . J ) )/SNUM 
CONTINUE 

WRITE (NPNCH.80) XCELS 
PO 50 J=I ,32 

XCELSI J )=START+WI04FLOAT( J I 
eONTINUe 

WRITE (NPNCH,90) XCELS 
RETURN 


C 

C 


60 


FORMAT (///1X,9( IH+J ,25HWARNING-0N KEYWORD CARD 
I IS. 1H=/10X,67H EITHER NODE IS NOT A STAT NODE 
2M EQUALS ZERO ,/10X,51H OR DISCRETE 
3EATER THAN. 15) 


00000013 
00000014 
00000015 
OOOOOOlfi 
00000017 
OOOOOO’lB 
00000019 

> 00000020 

00000021 
00000022 
00000023 
00000024 
00000025 
00000026 
00000027 
00000028 
00000029 
00000030 
00000031 
00000032 
00000033 

0000003A 

00000035 
00000036 
00000037 
00000038 
^ 00000039 

00000040 
00000041 
00000042 
00000043 
O000QO44 
00000045 
00000046 

=,A4,I5,5H AS, 00000047 
WIDTH OF HlSTqGRA00000048 
OlSTRtSUTION REQUESTED IS GR00000049 

00000050 


70 

30 

90 


FORMAT 

format 

FORMAT 

END 


(I5,3X,2H32*E10.4) 

(T6FS.4) 

(SeiO.4) 




FUNCTION 01 SCR (JP) { 

COMMON /Gl/ MFA.MXO IRRT.ICRD,IMl.IM2,MAXQS,NT2i)? 
1 NRUN.NRNS, ISED,TNaW,ATRlB(6 )JjTRlB( 6) ,NAME(20) 
COMMON /G6/ NCELllO) ,PR0B(32/10) ,VAL(33, 10) ,ISEC 
1 KHIST.NPNCH 
JQ=JP 

IF (JQ.GT.MAX) GO TO 40 
K=ISEG(3,JQ) 

RNUM=RANF(ISED ) 

N=3.*RNUM 

IF (N.LE.O) GO TO 10 




♦ NCeR't NOQfNSNK f 
fj CELS (20 Of 3^) 
(3f 1 0) fMAXfMHISf 


K=I SECfNf JQ> 


00000051 
00000052 
00000053 
00000054 
0000 00 0 I 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 

oooooooa 

00000009 
00000010 
00000011 
00000012 
000 00 0 % 3 
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C 


c 


¥, 


10 NCELS=NCcL( JQ)-l 
DO 20 J=K.NCSLS 

TF (RNUM.LT.PROBtJ.JQ) ) GO TO 30 
20 CONTTNWE 
J«NCEf-{ JO) 

30 0 1 SCR= VAL( J ♦ OQ ) ■»-VAU( 33* JO )♦RANF<. I SEO ) 
GO TO 50 

40 WRITE UPRT*60) JO 
CALL ERROR <991 
SO RETURN 


60 format (/1X.9<1H4)»44HREQUESTED deviate FROM DISCRETE OISTR10UT1 
1*14) 

END 

SUBROUTINE ASSGN (JO) 

COMMON /G6/ NCELUO) ,PR0B(32. 10 ) . VAL( 33, I 0 ) , ISEC( 3 , I 0 ) ,MAX,NHIS * 
I KHIST,NPNCH 


000000 1 4| 
ooooooi*?! 
000000 i(i'. 
00000017 

000 0001 a 

00000019 
00000020 
00000021 
00000022 
00000023 
00000024 
0000 002S 
00000026 
ON00000027 
000000281 
00000029 
0000 000l| 
00000002 
00000003 


JQsJD 

NCELS=NCEL( JQ) 

DO 10 J=l,NCELS 

IF <PRO0(J, JO).GT.O.) GO TO 20 
10 CONTINUE 
20 1SEC(3,JQ)=J 
K=l 

00 SO J=l,NCELS 
N=3«*PR0S( J, JQ) 

IF (N-K) 50,30,40 
30 rSEC(K,JQ)=J 

K-sK+1 

GO TO 50 . 

40 ISEC(K,JQ)-J 

ISEC(K+1, JQ)=sJ 
RETURN 
50 CONTINUE 
RETURN 

END 

SUBROUTINE AOJST 

COMMON /Gl/ MFA.MXC* IPRT.1CRD,IMI , 1M2 , MAXOS , NT2F , NC2R . NaQ ,NS MK , 

1 NRUN,NRNS, rSED,TN0W,ATRI8<6 ),JTRIR( 6) .NAME(20) r JGELS(200,32) 
COMMON /G2/ MFE( 300) ,MLE(300),NQ(300) ,PARM( 100,4) ,SUMl (300) • 

I SUM2(300),SUM3(300) ,SUM4(300),SUM5(30f)) , NT2C2.EPS 
COMMON /G3/ KSTl{100),XLOW(200),NReLl ( 300 ) , NPEL2 ( 300 ) , NREL( 3 00 ) , 
1 MRELt 300 ) ,KST4( 100 ) ,KST3< 100) ,NTYPE( 300 ) , WIOTH( 200 ) ,NSTS.NCTS 
COMMON /G6/ NCELUO) ,PRC8(32, 10) , VAL(33, 10) , 1SEC(3, 10) ,MAX,NHIS , 
1 KHIST,NPNCH 
DOUBLE PRECISION SUMl,SUM2 

IF (KHIST.EQ.O) GO TO 40 
XCLCT=NSTS*NCTS 
NHIST=NSTS»2+2 
DO 20 KH=l,NHIST 

IF (WrOTH(KH).GE. 0.) GO TO 20 


'^000000^1 

00000005} 

00000006 

OOOOOuOTl 

00000008 

oooooood 

OOOOOOICM 
OOOOOOl 1 
00000012 
00000013 
00000014 
00000015 
00000016 
00000017 
0000 001 fl 
00000019 
0000002C 
0000 00211 
00000022 
00000022 
00000001 
00000002 
00000002 ! • 
00000004 
00000005 

oooooooa 
oooooootI 
oooooooa 
0000 00 0'^ 
ooooooio 
ooooooli 

00000013 

OOOOOOl^’ 

OOOOOOl^* 

000Q0015 

00000016 
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KO=KH+<Kf#-l) ♦NCTS 

rP (KH.tS^-NSTS) KGsKCLCT-l-KH | 

IF (SUM3(K0) .LT.f.S) GO TQ 20 / 

XL=SUM4(KQ) 

XH=SUMS<KO) 

C 

c***** SCALE THE HISTOGRAM 
C 

PT«<XH-XL)/32. 

IF (ABSIPT) .LE. l*e-IOJ GO TO 20 
lN-1 

IF <PT,GE*100.> INs-l 
I*-I 

10 1=1+1 

P=10.**(I*IN) 

Xssp^PT 

IF (Z*LT*tO*.OR*Z«GE.100.J GO TO 10 
K=10**<Z-AINT<2> > 

PT=.S 

IF (K.GT.5) PT=1.0 
PT=A1NT(Z)+PT 
VriD=PT* 10 .* + (-I^rN) 

WiaTrifKH)=-WIO 
K=IF1X(XU/WI0)+1 
IF (XL.LT.O*) K=K-t 
XLOW < KH 1=W I D*FLOAT CK ) 

20 CONTINUE 
C 

PLOT HISTOGRAMS 
C . 

REWIND NHIS 
00 30 I=l,KHIST 

READ (NHIS) OBS»KH 
WIDTHCKH)-“WlDTH( KH> 

CAUL HISTO (CBS.KH) 

WIOtH(KH)=-WIDTH(KH) 

30 CONTINUE 

REWIND NHIS 
40 CONTINUE 
RETURN 

C . . ■ 

END 

5UBPOUTTNE ERROR (J) 

DIMENSION N5ET(5600) 

COMMON QSET(5600) 

COMMON /G I / MFA »MXC * IPRT » ICRD » IM 1 , IM2 . MA XQS » NT2R • NC2R ,NOQ .NSNK « 

I NR UN , MRNS . I S cO . TNO W « A T R I E ( 6 ) , J T R I R < 6 ) . N A ME ( 2 0 ) » J CEL S ( 2 0 0 , 3 2 ) 
COMMON /G2/ MFE(300> »MLE(300) ,NQ<300) ,PARM ( 1 00 » 4 ) , SUM! (300) . 

I SUM2(300) .SUM3(300) «SUM4(300).SUM5{300) tNT2C2tEPS 
COMMON /G3/ KSTU 100 ) »XL0W(200) tNPELi (300) .NReL2(300) »NREL{300) , 
I MREL(300 ) ,KSf4< 100 ) .KST3 < 100 ) tNTYPE ( 300 ) .W IDTH < 200 ) .N3T3.NCTS 
COMMON /G4/ XSTUS(IOO) .SUMCT.CSTUS(IOO) .NCND.NCNL.NCNU.T2.C2. 

1 ITFLG, ICFLG.TYYY,TCCC.TIMTO.C0STD 
eoUIVALENCE (NSET(l).QSET(l)) 

DUUOLE PRECISION SUM1.SUM2 


00000017 
00000018 
00000019 
00000020 
00000021 
00000022 
00000023 
00000024 
00000025 
00000026 
00000027 
00000028 
00000029 
00000030 
00000031 
00000032 
00000033 
00000034 
00000035 
00000036 
00000037 
00000038 
00000039 
00000040 
00000041 
00000042 
00000043 
00000044 
00000045 
00000046 
00000047 
00000048 
00000049 
OOQOOOSO 
00000051 
00000052 
00000053 
00000054 
00000055 
00000056 
00000057 
00000058 
OOOOOOOl 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
000 () 00 08 
00000009 
00000010 
0000001 1 
00000012 
00000013 
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DATA KT,KC/4HTIME.4HCOST/.KN/4HCNOO/ 

WRITE (IPRT»130) 

NCLTsNSTS* ( NCTS+2 ) +2 
IF (J.LT*0) GO TO 10 

WRITE (IPRT»140) J ^ 

10 WRITE (IPRT.ISO) TNOW ) 

DO 30 L»l»NOQ 

IF (NQ(L).LE*0) ’go TO 30 
WRITE (IPRTfieO) L 
INDX=«FE(L) 

20 NP=IN0X+IMl-fIM2 
NSaNP+l 
NF=INDX+IMl-l 

WRITE ( IPRT.170) INDX.NSET<NP) ,NSET (NS) * ( NSETIK) fKsINOX.NF) 

NF=NF+1 

NI-=NF+IM2-l 

WRITE (IPRTfieO) (QSETIK) tKaNFiNC) 

IMOX=NSET(NS) 

IF UNOX.GE^ 77777) GO TO 30 
GO TO 20 
30 CONTINUE 

IF (J.EQ.-l .OR. ( J.EQ*-3*AN0,NPUN.EQ. I ) ) GOTO 120 
WRITE (IPRT.130) 

IF CNCLT.LE.O) GO TO SO 
WRITE (IPRT»I90) 

MCTS=NCTS+l 
OO 50 I=1.NSTS 
NC = 0 

DO 40 M=l,MCTS 

L=( I-U=t'MCTS<-M 

WRITE ( IPRT .20 0 ) KSTl ( I ) ,NC , SUM I (L ) ,SUM2 < L ) . SUM3 (L) ,SUM4< L 
I SUMSIL) 

NC=NC+l 

40 CONTINUE 
50 CONTINUE 

MCLT=NCLT-NSTS-2 

NC=MCLT+l 


00000014} 
00000015^ 
0000 0016' 
ooooooitI 
ooooooisl 
0000001 91 
ooooooaol 
00000021I 
000000221 
000i00023| 
00000024 
00000025 
00000026 
00000027 
00000028| 
00000029| 
00000030 
00000031 
00000032 
00000033 
00000034 
00000035 
00000036 
00000037 
00000038 
00000039 
00000040 
0000004 if 
00000042 
OOOOOO43 I 
)» 00000044 
00000045 
00000046 
0000004t| 

0000004a 

0000 004-g 
0000005n 


MCTS=MCLT+NSTS 
DO 60 I=NC.MCTS 
L=I-MCLT 


00000051 

00000052 

oooooosd 


WRITE (IPRT.210) K3T 1 (L ) , SUMl ( L) .SUM2 ( L ) , SUM3 (L) , SUM4(L) . 
1 SUM5(L) 

60 CONTINUE 

IF (NCNO.EQ.O) GO TO 70 
NC=NCLT-1 


00000054 
00000055 
00000056 
00000057 
0000 005 <= 


WRITE (IPRT. 220 ) (KN.SUMl ( I > . SUM2 ( 1 ) ,SUM3( 1 ) , SUM4( I) .SUMS! I) , I=NC, 0000 005?| 


I NCLT) 

70 write (IPRT.130) 

80 NHlST=NSTS*2+2 

IF (NHIST.LE.O) GO Td 110 
write (IPRT. 230) 

NC^a^NSTS 
DO 90 1=1.NC 
M=I 
KsKT 


ooooooed 

0000006V 

00000062 

0000006:1 

0000006^ 

00000065 

0000006^ 

00000061 

00000068 
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IF (t.LE.NSTS) GQ TD 90 

M*I-NSTS 

K~KC 

90 WRITE (IPRT.24^0) KST 1 {M ) . K , ( JCELS < 1 .K ) 

IF (NCNO.EQ.O) GO TO 110 

NC=NHIST-1 

DO 100 I-NC,NHIST 

WRITE (IPRT.2S0) KNt iJCELSCIiK} •K=l •MXC) 
100 CONTINUE 
110 CALL EXIT 
120 RETURN 


C 

C 

c 


Type 1 13 # 7h error • > 

TtMS»eX2«4/5X.42HP=PRE0ECESS0R 


s,I6»3X,2HS=*16/lX»SHJTRIBt8X. 


130 FORMAT (IHU 

140 FORMAT I//36X » 16HERR0R EXIT. 

ISO FORMAT (//20H FILE STATUS AT 
IR S*SUCCESSOR POINTER) 

160 FORMAT (//IXeSHFILE »I4) 

170 FORMAT ( /IX t 5HCELL=. 16 t 4X «2HP 
1 7I12/<14X.7I12) ) 

1 00 FORMAT ( 1 X f 5HATR I B , 8 X . 7E 1 2 . 4/ ( 1 4 X * 7E 1 2 .4 ) ) 

190 FORMAT I/,* SUM. SUM OF SO.. NUMB. OF OBS., MIN., MAX.*./) 
200 FORMAT ( 1 X . 14 . I H( , T3 . 1 H ) .5E 13 . 4 ) 

210 FORMAT (1X.I4,5HC0ST .SE13.4) 

220 FORMAT < 5X . AS . 5E13 .4 ) 

230 FORMAT (/12H ARRAY JCELS/) 

240 FORMAT ( /IX . 14 . 44 . 16X . I I 16/( 25X* 1 1 16 > ) 

2S0 FORMAT { /5X « A4 . 1 6X . 1 116/ (2SX. 1 1 1 6 ) ) 
end 


00000069 

00000070 

00000071 

00000072 

00000073 

00000074 

00000075. 

00000076 

00000077 

00000078 

00000079 

00000080 

00000081 

00000082 

00000083 

00000084 

POINTE0000008S 

00000086 

00000087 

00000088 

00000089 

00000090 

00000091 

00000092 

00000093 

00000094 

00000095 

00000096 

00000097 

00000093 


